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1.  Introduction 


In  our  work  with  weapon  system  eoneepts,  we  frequently  need  to  parameterize  battlefield 
seenarios  by  varying  characteristics  (e.g.,  ammunition  load,  response  time,  speed,  location,  etc.) 
of  the  weapons  systems  in  the  simulation  experiment.  Depending  on  the  number  of  weapon 
system  characteristics  being  studied,  a  simulation  experiment  may  require  ten  to  hundreds  of 
repetitions  of  individual  experimental  trials.  For  some  experiments,  we  can  write  a  specialized 
self-contained  simulation  that  loops  through  all  the  variations  we  wish  to  study.  For  other 
experiments,  we  need  to  use  the  OneSAF  battlefield  simulation  tool.  OneSAF  is  a  real-time 
distributed  interactive  simulation  tool  developed  by  the  U.S.  Army  Simulation,  Training,  and 
Instrumentation  Command  for  training  and  analysis.  It  can  be  used  to  examine  weapons  systems 
concepts  in  scenarios  as  large  as  brigade-level.  It  can  also  be  used  to  model  engagements  as 
small  as  one-on-one  encounters.  To  run  an  exercise,  a  user  places  friendly  and  opposing  forces 
on  a  digital  terrain  database,  assigns  missions  for  each  unit  in  each  of  the  forces  in  the  scenario, 
and  runs  the  simulation.  This  process  can  be  made  somewhat  more  efficient  by  saving  and 
reloading  scenario-related  parameters  such  as  initial  unit  locations  and  planned  movement  routes. 
However,  running  several  variations  for  a  parametric  study  still  requires  considerable  user 
involvement. 

In  this  report,  we  describe  a  method  to  run  multiple  simulation  trials  efficiently  using  OneSAF. 
Our  discussion  focuses  on  three  main  areas:  (1)  managing  the  experimental  trials,  (2)  specifying 
experimental  parameters  with  a  graphical  user  interface  (GUI),  and  (3)  collecting  experimental 
data.  The  work  presented  in  this  report  describes  a  methodology  rather  than  a  simulation  tool — 
users  will  have  to  tailor  the  methodology  to  their  individual  simulation  studies. 

We  illustrate  our  methodology  with  two  experiments.  In  the  first  experiment,  a  single  unmanned 
ground  vehicle  (UGV)  travels  through  rough  terrain.  In  the  second  experiment,  a  team  of  UGVs 
patrols  a  road  segment  on  the  battlefield. 

This  document  refers  to  code  libraries,  functions,  and  structures  contained  in  the  OneSAF 
simulation  code.  To  avoid  confusion,  we  adopt  the  following  notation:  library  names  are  printed 
in  bold  typeface  (i.e.,  libctdb),  function  names  are  italicized  (i.e.,  unitdefdb_name_to_object), 
and  C  structure  names  are  capitalized  (i.e.,  UUTIL_UNIT_P ARAMS).  We  frequently  illustrate 
the  text  with  code  examples.  Large,  multipage  programs  will  appear  in  the  appendices 
(appendices  A-D).  Small  code  samples  will  appear  as  figures  in  the  main  text;  these  samples 
will  be  indented  and  boxed  to  distinguish  them  from  the  main  discussion. 

To  help  users  locate  files  within  the  OneSAF  code,  we  will  assume  that  the  root  directory  of 
OneSAF  is  “OneSAF_Root”;  all  file  names  include  directory  paths  relative  to  this  root  directory. 
File  names  are  offset  from  the  main  text  by  quotes. 
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2.  Managing  a  Series  of  Experimental  Trials 


In  this  section,  we  describe  a  method  to  design  and  control  a  simulation  experiment  with  minimal 
user  involvement.  Because  our  methods  involve  writing  application  libraries  for  the  OneSAF 
simulation  tool,  the  reader  should  be  familiar  enough  with  OneSAF  and  the  C  programming 
language  to  modify  and  recompile  the  code.  Our  work  utilizes  the  following  OneSAF  libraries: 
libsched  (i),  libtaskutil  (2),  libunitutil  (5),  libpo  {4),  libentity  (5),  libtime  (6),  libunitdefdb 
(7),  libctdb  (5),  libcoordinates  (P),  and  libeditor  {10).  It  is  beyond  the  scope  of  this  report  to 
include  detailed  discussions  of  these  libraries;  however,  we  include  a  brief  description  of  the 
specific  library  functions  used  in  our  work. 

We  begin  our  discussion  by  describing  the  software  necessary  to  simulate  a  set  of  experimental 
trials.  Similar  to  any  OneSAF  simulation  experiment,  in  our  work,  we  need  to  place  units  on  the 
battlefield,  assign  missions,  and  manage  the  set  of  experimental  trials.  However,  because  user 
involvement  for  our  work  is  restricted  to  using  an  editor  to  set  up  parameters  for  a  series  of 
experimental  runs,  these  setup  tasks  must  be  handled  automatically  by  the  software.  The 
experiment  tool  we  developed  utilizes  existing  OneSAF  software  functions  to  control  the 
placement  and  function  of  units  in  a  scenario. 

2.1  Creating  Units 

Units  are  created  using  functions  and  data  structures  from  the  libunitutil  library.  The  unit 
characteristics  are  specified  by  the  UUTIL_UNIT_P ARAMS  structure  shown  in  appendix  A.  In 
an  application,  a  user  creates  a  UUTIL  UNIT  P ARAMS  variable  and  assigns  values  to  its 
parameters.  In  this  discussion,  we  concentrate  on  the  structure  variables  shown  in  bold  italics — 
object  type,  location,  direction,  and  formation.  The  unit  is  specified  by  the  object  type  variable 
of  the  structure.  Generally,  a  unit  name,  such  as  “unit_US_Ml_Platoon”  is  translated  into  its 
object  type  using  the  function  unitdefdb_name_to_object,  from  the  libunitdefdb  library,  and  the 
unit  definition  database  for  the  simulation. 

The  location  variable  specifies  the  initial  location  in  meters  (X,  Y,  and  Z)  for  a  unit  in  a 
geocentric  coordinate  system  (11)  along  with  a  terrain  cell  C.  For  some  experiments,  the  initial 
location  of  the  units  is  constant  across  all  the  experimental  trials.  The  user  may  wish  to  specify 
this  initial  location  in  a  more  familiar  coordinate  system  such  as  Universal  Transverse  Mercator 
(UTM)  and  use  the  libcoordinates  library  to  translation  to  UTM.  Other  experiments  may 
require  the  initial  location  to  vary  within  a  user-specified  region.  Initial  locations  may  also 
depend  on  scenario  requirements  such  as  the  use  of  roads  or  cover.  The  initial  direction  can  be 
constant  for  all  experimental  trials  or  it  can  be  calculated  from  the  positions  of  opposing  units  or 
the  location  of  waypoints  or  other  points  of  interest. 
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The  formation  parameter  is  a  eharaeter  string  deseribing  the  military  formation  or  pattern  in 
whieh  a  unit  moves.  Common  values  for  the  formation  parameter  are  line,  wedge,  and  vee.  The 
library  libformationdb  eontains  available  formations  along  with  tools  to  orate  and  modify 
formations.  In  this  work,  the  formation  is  fixed  for  all  the  experimental  trials. 

Onoe  the  unit  parameter  struoture  has  been  initialized,  the  funotion  unitutil_create  oreates  an 
entry  in  the  persistent  object  database  for  that  unit.  The  persistent  object  database  manages  all 
the  objects,  such  as  units,  waypoints,  overlays,  and  routes,  in  the  simulation. 

2.2  Assigning  Missions 

Many  simple  missions  in  OneSAF  are  described  by  a  single  taskframe.  A  taskframe  is  a 
collection  of  related  tasks  that  run  simultaneously.  In  general,  a  taskframe  includes  a  preparatory 
phase  and  a  primary  task.  The  preparatory  phase  allows  the  unit  to  perform  any  initialization 
activities  before  executing  the  main  task.  Usually,  it  is  set  to  a  Halt  task.  Taskframes  may  also 
include  reaction  tasks  that  allow  units  to  interrupt  the  primary  task  to  respond  to  situations  such 
as  enemy  fire.  Definitions  for  existing  taskframes  are  found  in  the  file  “OneSAF_Root/src/ 
onesaf/taskframe.rdr”.  The  libtaskutil  library  contains  functions  to  assign  and  configure  tasks. 
The  function  taskutil_create  Jrame  creates  an  instance  of  a  specific  taskframe.  This  function 
must  use  an  existing  taskframe  from  “OneSAF_Root/src/onesaf/taskframe.rdr”.  Users  can  set 
parameters  for  the  taskframe  using  the  taskutil_set _parameter  function. 

Figures  1-5  show  a  C  function.  Ml _Exper intent,  which  places  an  Ml  platoon  at  an  arbitrary 
point  on  the  battlefield  and  assigns  it  a  move  mission.  In  this  discussion,  the  function  is  divided 
into  sections  to  improve  readability.  Appendix  A  lists  the  complete  C  function.  The  first  section 
defines  the  local  variables  used  in  the  Ml _Experiment  function.  This  section  also  translates  the 
unit  name  into  its  corresponding  object. 

static  void  Ml  Experiment  (PO  DATABASE  *db) 

{ 

/*  Variable  definition  */ 

PO  DB  ENTRY  *frame,  *point_entry,  MlUnit  entry; 
int32  vehicle  id,  methodology,  sx,  sy,  ex,  ey; 
float64  speed,  angle; 
uint32  size; 

char  *otype,  unit  type  [80],  formation  [80]; 

ObjectType  object; 

ObjectID  MlUnitID; 

UnitClass  MlUnit; 

UUTIL  UNIT  PARAMS  new_MlUnit; 

PO  BUFFER  (PointClass,  point,  pointbuf); 

/*!.  Find  the  object  from  the  nnit  name  and  the  nnit  db*/ 

otype  =  stdname  get  standard  (reader  get  symbol  ("unit  US  Ml  Platoon")); 
object  =  unitdefdb  name  to  object  type  (otype,  nnit  db); 


Figure  1.  Ml  Experiment  function  -  variable  definitions  and  section  1. 
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1*1.  Set  up  the  unit  parameters  structure  */ 

bzero  (&new_  MlUnit,  sizeof(UUTIL_lJNIT_P ARAMS)); 
MlUnit.force  =  distinguishedForcelD; 

Ml  Unit,  methodology  =  0; 

Ml  Unit,  mounted  =  FALSE; 
strcpy  ((char  *)  formation,  "line"); 

Ml  Unit,  formation  =  readergetsymbol  (formation); 

MlUnit.objecttype  =  object; 

sx  =  5000.0  +  1000.0*drand48  (); 

sy  =  5000.0  +  1000.0*drand48  (); 

ex  =  sx  +  500.0*drand48(); 

ey  =  sy  +  500.0*drand48  (); 

MlUnit. location[0]  =  sx; 

Ml  Unit,  location)  1]  =  sy; 

angle  =  atan((eby  -  sby)/(ebx  -  sbx)); 

Ml  Unit,  direction  =  RAD_TO_BAM(angle); 

Ml  Unit,  competence  =1.0; 

MlUnit.usedefaultmunitions  =  TRUE; 
MlUnit.subformation  =  reader_get_symbol("line"); 


Figure  2.  Ml  Experiment  function  -  section  2. 


/*3.  Create  the  Ml  platoon  */ 

MlUnit  entry  =  unitutil_create(&MlUnit,  NULL, 0, NULL,  0,  TRUE,  db); 
MlUnit  unit  =  PO_LrNIT_DATA(MlUnit  entry); 

overlay  =  po_get_object(db,  &PO_UNIT_DATA(MlUnit  entry). overlay  ID); 
Figure  3.  Ml  Experiment  function  -  section  3. 


/*  4.  Create  a  point  for  the  move  mission  */ 

bzero(&point,  sizeof(point)); 

point,  overlay  ID  =  PO_UNIT_DATA(MlUnit  entry). overlaylD; 

point,  style  =  PSgeneral; 

point,  color  =  OCGreen; 

point,  dashed  =  0; 

point,  location.  X  =  ex; 

point,  location.y  =  ey; 

point. direction  =  RAD_TO_BAM(DEG_TO_RAD((float64)  degrees)); 
point  entry  =  po_create_object(db,  NULL,  objectClassPoint, 

FALSE,  &point,  sizeof(point),  NULL); 

Figure  4.  Ml  Experiment  function  -  section  4. 

In  figure  2,  the  second  section  sets  up  the  unit  parameters  as  previously  discussed.  The  initial 
location,  (sx,  sy),  is  chosen  so  that  it  lies  in  a  1-  x  1  -km  rectangular  region  of  the  battlefield  that 
is  5  km  from  the  western  and  southern  borders  of  the  battlefield.  There  is  no  error  checking  in 
this  example;  in  an  actual  program,  it  is  important  to  check  that  the  point  (sx,  sy)  is  actually 
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/*  5.  Create  the  Move  Mission  */ 

frame  =  taskutil_create_frame("Move"); 
taskutil_set_parameter(frame,SM_UMixedTravel,  "route", 

&PO_OB  JECT_ID(point_entry)) ; 

speed  =  20.0; 

taskutil_set_parameter(frame,  SM  UMixedTravel, "  speed" ,  &speed) ; 
MlUnit  ID  =  PO_OBJECT_ID(MlUnit  entry); 
taskutil_assign(frame,&  MlUnit  ID); 

} 


Figure  5.  Ml  Experiment  function  -  section  5. 

on  the  battlefield.  The  destination  point,  (ex,  ey)  is  generated  at  the  same  time  as  the  initial 
point.  This  point  lies  within  0.5  km  of  the  initial  point.  Both  points  depend  on  the  standard  C 
random  number  funetion,  drand48.  The  vector  starting  at  (sx,  sy)  and  terminating  at  (ex,  ey) 
gives  the  direction  of  the  unit.  In  this  section,  we  also  initialize  the  driving  competence,  force 
type,  and  formation  parameters. 

The  third  section,  figure  3,  uses  the  Ml  unit  structure  to  create  an  Ml  platoon.  We  also  create  an 
overlay  for  the  Ml  platoon  to  store  the  destination  point,  (ex,  ey)  used  in  the  move  mission.  An 
overlay  contains  map  graphics  such  as  points,  lines,  and  text.  Overlays  can  be  private  so  that 
they  are  only  visible  to  specific  units  or  public,  so  that  they  are  visible  to  all  units  in  the  exercise. 
A  researcher  can  see  the  overlay  associated  with  the  Ml  platoon  by  selecting  the  unit  from  the 
graphical  display. 

The  fourth  section,  figure  4,  creates  a  OneSAF  point  structure  for  the  destination  point  (ex,  ey). 
The  structure  specifies  the  type,  color,  location,  and  orientation  of  the  point.  The  point  is  placed 
on  the  Ml  overlay. 

The  last  section,  figure  5,  creates  a  Move  taskframe  for  the  Ml  platoon.  This  taskframe  contains 
the  SM  MixedTravel  behavior  as  its  primary  task.  The  taskutil_set parameter  function  is  used 
to  set  the  route  and  speed  for  this  behavior.  The  function  taskutil_assign  on  the  last  line  of  the 
code  actually  starts  the  task  for  the  unit — this  function  is  equivalent  manually  issuing  an  “On 
Order”  command  to  start  a  mission. 

2,3  Managing  the  Trials 

An  interactive  user  can  easily  stop  and  start  experimental  trials  by  using  the  GUI.  Our 
experiment  tool  needs  an  exit  criterion  to  stop  the  experimental  trials.  There  are  three  types  of 
exit  criteria  we  will  consider — mission  completion,  trial  duration,  and  unacceptable  level  of 
casualties.  “Mission  completion”  is  the  simplest  of  the  exit  criteria — the  experiment  terminates 
when  the  mission  is  accomplished.  To  use  this  criterion,  the  experiment  tool  must  monitor  the 
task  state.  The  trial  terminates  when  the  main  task  of  the  taskframe,  described  in  the  previous 
section,  reaches  its  terminal  state.  This  is  a  useful  criterion  for  missions  involving  little  risk  of 
failure.  We  have  used  mission  completion  as  the  exit  criteria  for  a  series  of  experimental  trials  to 
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evaluate  the  planning  phase  of  more  complex  missions.  Trial  duration  allows  each  experimental 
trial  to  run  for  a  specified  amount  of  time.  The  advantage  of  this  criteria  is  that  it  is  very  easy  to 
program — it  only  needs  to  monitor  the  simulation  clock.  The  disadvantage  is  that  it  may  be 
difficult  to  time  the  trials  so  that  the  mission  is  completed  when  the  trial  ends.  Using  “casualty 
level”  as  an  exit  criterion  is  useful  for  trials  involving  opposing  forces.  Here,  the  experiment  tool 
must  monitor  casualty  levels  using  functions  from  the  libunitutil  library.  It  is  possible  to 
develop  an  exit  criteria  that  depends  on  all  three  of  the  criteria  previously  discussed  or  on  other 
factors  such  as  distance  between  opposing  forces,  loss  of  specific  assets,  or  the  number  of  rounds 
fired. 

In  this  example,  we  have  created  a  simple  experiment  manager  function.  It  runs  20  trials  of  the 
Ml  platoon  experiment  shown  in  figures  1-5.  Each  experimental  trial  runs  for  10  min.  Platoons 
are  destroyed  at  the  end  of  each  trial  so  that  each  trial  starts  with  a  “fresh”  unit.  The  code  is 
divided  into  three  sections.  Figure  6  shows  a  part  of  the  simple  experiment  manager  function, 
which  manages  the  experimental  trials.  The  conditional  block  takes  one  of  three  actions-it  starts 
the  first  trial,  it  stops  the  experiment  (and  the  program),  or  it  switches  experimental  trials. 


void  exp  manager  (PO  DATABASE  *db) 

{ 

static  int32  elapsed  time  =  0,start_time  =  0; 
static  int32  tickNumber  =  0,  trial  count  =  0; 
iiit32  current  time; 

/*  1.  Manage  current  trial  */ 

if  (tickNumber  ==  0)/*  Initialize  the  manager  */ 

{ 

starttime  =time_last_simulation_clock; 

sched_deferred_fncl  ((SCHED  FUNCTION)  Ml  Experiment,  100, 
my_group,  A  PTR,  db,  A  END); 

} 

else  if  (trial  count  ==  20)/*  Quit  after  20  iterations  */ 

{ 

exit  (0); 

} 

else  if  (elapsed  time  >  10*60*1000)  /*Run  each  trial  for  10  minutes*/ 

{ 

unitutil  delete  object  (db,  &PO_OBJECT_ID  (MlUnit  entry),  TRUE); 

/*  Remove  Ml  platoon*/ 

sched_deferred_fncl  ((SCHED  FUNCTION)  Ml  Experiment,  100, 
my  group,  A  PTR,  db,  A  END);  /*  Schedule  next  trial  */ 
start  time  =time_last_simulation_clock;  /*  Reset  the  clock*/ 
elapsedtime  =  0; 
trialcount  =  trialcount  +  1 ; 

} 


Figure  6.  A  simple  experiment  manager  function  for  the  Ml  experiment  - 
section  1. 
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The  second  section,  figure  7,  keeps  track  of  the  elapsed  time  for  each  trial. 


/*  2.  Collect  time  information*/ 

tickNumber  =  tickNumber  +  1 ; 

current  time  =  time  last  simulation  clock;  /*  Get  cnrrent  time  */ 
elapsed  time  =  current  time  -  start  time;  /*  Compute  elapsed  time  */ 


Figure  7.  A  simple  experiment  manager  for  the  Ml  experiment  function  - 
section  2. 

Finally,  the  third  section  reschedules  the  expjnanagex  function  (figure  8).  The  function 
sched_def erred Jhcl  is  found  in  the  libschedule  library.  It  is  one  of  several  functions  used  to 
manage  reoccurring  events  in  the  simulation. 


/*  3.  Reschedule  the  manager  */ 

sched  deferred  fncl  ((SCHED  FUNCTION)  exp  manager,  100, 
my  group,  A  PTR,  db,  A  END); 

} 


Figure  8.  A  simple  experiment  manager  for  the  Ml  experiment 
function  -  section  3 . 


3.  The  User  Interface 


User  involvement  is  restricted  to  using  a  GUI  editor  to  set  up  parameters  for  a  sequence  of 
experimental  trials.  OneSAF  provides  very  flexible  utilities  for  designing  user  interfaces.  These 
utilities  are  described  in  libeditor  and  examples  of  editors  are  provided  in  many  of  the  OneSAF 
libraries.  We  used  HHour  (libhhour)  editor  and  the  units  (libunits)  editors  as  templates  for  the 
experiment  editor.  The  EDITOR  structure,  typically  defined  in  the  “libexp.h”  file,  and  the  reader 
file,  “libexp.rdr,”  determine  the  design  of  the  editor.  The  EDITOR  structure  defines  the 
variables  required  by  the  editor. 

The  EDITOR  structure  is  defined  in  two  places — the  structure  shown  in  figure  9  from  the 
“libexp.h”  file,  and  in  the  reader  file,  “libexp.rdr”  (figures  9-11  and  appendix  B).  The  first 
section,  shown  in  figure  9,  defines  the  EDITOR  structure.  The  variables  in  this  section  are  the 
same  as  those  contained  in  the  EDITOR  structure  shown  in  figure  12.  OneSAE  calculates  the 
memory  for  each  editor  based  on  the  maximum  number  of  bytes  necessary  for  the  structure. 
Consequently,  the  order  and  size  of  the  variables  must  be  the  same  in  both  structures.  Mixing 
data  types  such  as  64-bit  floating  point  numbers,  32-bit  integer  numbers,  and  8-bit  character  data 
may  require  the  user  to  add  padding  variables  to  ensure  that  the  variables  start  at  the  beginning  of 
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;;Editor  definition  for  the  Experiment  editor 

((name  "Experiment  Editor") 

(stmet  (my  toggle 

uint8  1) 

(defined 

uint8  1) 

(goodguy 

uint8  40) 

(bad  guy 

uint8  40) 

(label  1 

uint8  20) 

(maxx 

uint8  20) 

(minx 

uint8  20) 

(maxy 

uint8  20) 

(miny 

uint8  20) 

(initial  separation 

uint8  20) 

(final  separation 

uint8  20) 

(seed  uint8  20) 

(DataFile  uint8  20) 

) 

Figure  9.  libexp.rdr  file  - 

seetion  1. 

(editor 

("Choose  the  Friendly  Vehiele"  CHOOSE  ONE  good_guy  SHOW 
("HMMWV"  "vehiele_US_HMMWV") 

("Ml"  "vehiele_US_Ml") 

) 

("Choose  the  OpFor  Vehiele"  CHOOSE  ONE  bad_guy  SHOW 
("USSR_BMP1 "  "vehiele_USSR_BMPl ") 
rUSSR_BMP2"  "vehiele_USSR_BMP2") 

("USSR_T80"  "vehiele_USSR_T80") 

) 

("Group  1"  GROUP  VERTICAL 
("Min  X  (meters)"  STRING  minx  1) 

("MAX  X  (meters)  "  STRING  maxx  1) 

("DataFile  "  STRING  DataFile  1) 

) 

("Group2"  GROUP  VERTICAL 
("MIN  Y  (meters) "  STRING  miny  1) 

("MAX  Y  (meters)"  STRING  maxy  1) 

) 

("Groups "  GROUP  VERTICAL 
("Initial  Separation  (meters)"  STRING  initial  separationl) 
("Final  Separation  (meters)"  STRING  final  separation  1) 
("Random  Number  Seed"  STRING  seed  1) 


) 

("  "  CHOOSE  ONE  my  toggle  SHOW 
("START  experiment"  1) 

("STOP  experiment"  2) 

) 

) 


Figure  10.  libexp.rdr  fde  -  seetion  2. 
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(initial 

(my  toggle  CONSTANT  1) 

(defined  CONSTANT  1) 

(bad_guy  CONSTANT  "vehicle_USSR_BMPl") 
(good_guy  CONSTANT  "vehicle_US_UGV_S_T_A") 
(labell  CONSTANT  "Terrain  Parameters") 

(maxx  CONSTANT  "1000.0" ) 

(minx  CONSTANT  "0.0") 

(maxy  CONSTANT  "1000.0") 

(miny  CONSTANT  "0.0") 

(initial  separation  CONSTANT  "500.0") 

(final  separation  CONSTANT  "50.0") 

(seed  CONSTANT  "3713") 

(DataFile  CONSTANT  "ExpData") 

) 

(render  NOINIT  REVERT  NEXT) 

) 


Figure  11.  libexp.rdr  file  -  section  3. 


struct  expedtstmct 

{ 

uintS  my  toggle; 

uintS  defined; 

char  good_guy[40]; 

char  bad_guy[40]; 

char  labell  [20]; 

char  maxx[20]; 

char  minx[20]; 

char  maxy [20]; 

char  miny [20]; 

char  initial_separation[20]; 

char  final_separation[20]; 

char  seed[20]; 

char  DataFile[20]; 

}; 


Figure  12.  The  exp  edt  struct  structure 
from  the  libexp.h  file. 

byte  boundaries.  A  more  detailed  discussion  of  padding  and  editor  structures  is  in  the  libeditor 
documentation  {10). 

The  editor  section  of  the  reader  file,  shown  in  figure  10,  lays  out  the  design  of  the  editor  GUI 
used  to  control  the  experiment.  This  editor  has  six  areas.  The  first  two  areas  allow  the  user  to 
choose  the  vehicles  involved  in  the  experiment.  The  next  three  areas,  labeled  Group  1-3,  allow 
the  user  to  choose  an  area  of  the  battlefield  for  the  experiment  and  the  initial  separation  of  the 
vehicles.  The  last  section  allows  users  to  start  and  stop  the  sequence  of  experiments. 
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The  initial  section,  shown  in  figure  1 1 ,  defines  the  initial  values  for  each  of  the  variables  given  in 
the  structure. 

Figure  13  shows  the  GUI  for  this  example  editor.  Each  of  the  six  areas  given  in  figure  1 1 
corresponds  to  a  different  column  of  the  editor  GUI.  Only  five  of  the  areas  are  visible  in  the 
figure — the  user  must  use  the  scroll  bar  to  see  the  final  area.  The  user  can  change  the  layout  of 
the  editor  by  rewriting  the  editor  section  of  the  reader  file.  It  is  useful  to  place  frequently 
changed  variables  in  the  upper  left  portion  of  the  editor  to  make  them  easy  to  find.  The  fonts, 
foreground  color,  and  background  color  used  in  the  editor  can  be  changed  using  a  X-Windows 
resource  fide. 


Rle  Scale  Map  Features  Scale  Show  As  Speoal  Local  Des^nation  HHours  ^livOege  I  14:49:01  GMT 


£>p  Editor 

Choose  the  Frietidly  vehicle 

Choose  Ae  OpFOR  vehicle 

Min  X  ( meters) 

MIN  Y  (meters) 

Imtitil  Separation  ( meters 

^ HMMWV 

Ml 

USSR_BMP1 

USSR_BMP2 

IP" 

pioji 

MAXX  (meters) 

MAX  Y  (meters) 

Final  Separation  (tneters,. 

Abort  1 

USSRTSO 

(1000.0 

(lOOO.O 

ps 

DataFile 

Random  Nttnber  Seed 

blext,  1 
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(Select  an  item  to  edit  will  be  resumed  when  finished  with  Civ  Editox  } 


Figure  13.  GUI  editor  for  simple  meeting  engagement  experiment. 

Although  the  exact  design  of  the  GUI  is  driven  by  the  specific  experimental  requirements,  there 
are  some  features  common  to  all  our  experimental  editors.  Each  experiment  editor  has  a  start 
and  stop  button.  These  allow  the  user  to  start  a  series  of  experimental  trials  and  to  prematurely 
stop  the  trials.  Every  editor  includes  an  experiment  location  box  that  allows  the  user  to  define 
the  rectangular  region  of  the  battlefield  to  be  used  for  the  experimental  trials.  Since  many  of  the 
experiments  we  design  involve  randomly  chosen  points  and  features;  the  GUI  editor  allows  the 
user  to  specify  a  random  number  seed.  The  GUI  includes  a  filename  input  textbox  that  is  used  to 
construct  all  the  data  files  for  the  series.  Often  editors  include  boxes  to  specify  unit  type,  travel 
distance,  and  separation  distance. 
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4.  Collecting  Data 


All  data  will  be  time-stamped  and  eolleeted  in  various  files  whieh  are  speeified  in  the  GUI  editor 
as  shown  in  the  previous  seetion.  While  the  data  eolleeted  depends  on  the  speeifie  experimental 
requirements,  a  minimal  data  set  for  any  experiment  eontains  vehiele  position  and  health  for  eaeh 
vehiele  in  the  simulation.  Also,  a  minimal  data  set  eontains  the  initial  experiment  parameters  so 
that  we  ean  reeonstruct  the  experiment,  if  needed. 

There  are  other  types  of  data  that  are  frequently  eolleeted  in  simulation  exereises.  For  example, 
users  may  wish  to  reeord  target  aequisitions,  along  with  the  available  targets  (i.e.,  targets  within 
the  vehiele’s  line  of  sight  [LOS]).  Researehers  often  reeord  vehiele  information,  sueh  as  vehiele 
state,  speed,  direction,  and  subcomponent  direction  (i.e.,  sensors).  Weapon  status,  ammunition 
consumption,  and  the  corresponding  damage  incurred  are  also  important  data  items. 

Although  it  is  possible  to  record  all  the  data  in  a  single  file,  it  will  be  more  efficient  to  record 
each  type  of  data  in  separate  files.  From  the  editor,  users  can  specify  a  base  file  name.  The 
experiment  tool  uses  this  name  to  construct  the  series  of  data  files  recorded  for  each  experiment. 


5.  Examples 


5.1  Simple  Meeting  Engagement  Involving  Two  Vehicles 

In  this  simple  experiment,  a  single  UGV  travels  through  rough  terrain,  while  an  enemy  vehicle 
remains  stationary.  The  UGV’s  mission  is  to  get  from  point  A  to  point  B  safely,  while  the 
enemy  vehicle’s  mission  is  to  eliminate  any  enemy  vehicles  it  encounters  from  its  stationary 
position.  The  mission  continues  until  the  UGV  reaches  its  destination  point  or  sufficient  damage 
has  been  inflicted.  The  function  expjick  creates  the  vehicles  and  runs  each  trial.  The  function 
uses  the  standard  C  random  number  function,  drand48  to  vary  the  UGV’s  starting  location  and 
the  enemy  vehicle’s  location. 

Setting  up  this  simple  scenario  involves  selecting  the  vehicle  types,  placing  them  on  the  terrain 
map,  and  assigning  them  their  tasks.  While  this  may  not  seem  overly  taxing,  repeating  this 
process  over  several  iterations  can  become  tedious.  The  experiment  editor  allows  a  researcher  to 
run  several  replications  of  a  scenario  while  setting  initial  parameters  only  once.  This  simplifies 
the  setup  process  for  the  experiment  and  also  minimizes  the  amount  of  user  involvement. 

5.2  Experiment  II  Overwatching  Fires  (OWE)  Behavior 

The  second  experiment  involves  a  more  complex  scenario,  also  drawn  from  our  robotic  behavior 
development  work,  and  requires  a  team  of  manned  and  armed  unmanned  systems  to  protect  a 
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road  segment  from  enemy  incursion.  The  mission,  referred  to  as  the  OWF,  is  easy  to  describe  in 
general  terms.  There  are  two  distinct  roles  for  team  members:  observers  and  shooters.  The 
observers  watch  for  enemy  units  on  the  designated  road  segment.  Once  enemy  units  have  been 
identified,  the  shooters  move  into  position  and  fire  upon  enemy  units  detected  by  the  observers. 
Once  the  shooter  has  fired  on  its  target,  it  moves  to  another  firing  position  to  await  its  next  target, 
The  mission  continues  until  the  enemy  unit  leaves  the  road  segment;  sufficient  damage  has  been 
inflicted;  or  the  unit  receives  a  new  mission. 

Thoroughly  testing  this  algorithm  requires  many  experimental  trials  in  which  the  robots  must 
exercise  the  behavior  algorithms  in  different  situations.  The  process  of  setting  up  and  running 
each  experimental  trial  can  be  very  tedious.  A  researcher  needs  to  specify  a  road  segment  to 
watch  and  an  observation  box  for  each  experimental  trial.  Not  all  road  segments  are  suitable — 
some  offer  too  much  or  too  little  nearby  cover  for  a  realistic  mission  scenario.  Using  an  LOS 
analysis,  researchers  can  find  suitable  locations  for  each  trial.  Once  the  road  segment  and 
observation  box  are  picked,  researchers  need  to  set  up  the  friendly  and  opposing  forces  and  their 
tasks.  Finally  the  researcher  runs  the  experimental  trial.  The  entire  process  takes  '-'10-30  min  to 
find  a  suitable  road  segment  and  set  up  the  experimental  trial,  and  20  min  to  run  the  trial. 

We  have  developed  a  manager  for  the  OWF  experiments;  the  code  is  given  in  appendix  D. 

Figure  14  shows  the  OWF  Experiment  Editor,  which  allows  the  researcher  to  set  basic 
parameters  for  the  series  of  experimental  runs.  In  the  top  left  comer,  users  enter  a  base  filename, 
which  is  used  to  create  the  data  storage  files  for  the  experiments.  Users  may  also  specify  a 
random  number  seed  to  control  repeatability  of  the  experimental  trials.  There  are  pull-down 
menus  to  select  the  OEW  team  and  the  opposing  force.  Currently,  there  are  two  OEW  teams 
available:  1  “Observer/1  Shooter”  and  “1  Observer/2  Shooters.”  The  opposing  forces  are 
platoons  of  BDRMs  or  BMPs.  Einally,  the  users  can  restrict  the  experimental  trials  to  a 
rectangular  region  of  the  battlefield  by  entering  the  MaxX,  MaxY,  MinX,  and  MinY  parameters. 

Eor  each  trial,  the  function  find_suitable_road,  given  in  appendix  C,  randomly  selects  road 
segments  and  performs  an  LOS  analysis  of  the  nearby  terrain.  The  friendly  unit  needs  open 
areas  to  use  as  firing  or  observation  positions  and  concealed  areas  to  use  as  hiding  positions  and 
to  mask  its  movement  between  firing  positions.  Road  segments  are  rejected  if  there  is  not  a 
suitable  mix  of  open  and  concealed  areas  near  the  road.  The  function  OWFjick  creates  the 
vehicles  and  mns  each  trial.  Note  that  find_suitable_road  does  a  preliminary  analysis  of  the 
terrain  to  find  a  suitable  region,  referred  to  as  the  mission  box,  for  an  experimental  trial.  Actual 
firing  and  observation  positions  in  the  mission  box  are  determined  by  the  overwatching  fires 
behavior. 

Trials  are  terminated  after  one  of  the  following  conditions  is  satisfied:  (1)  the  opposing  force 
leaves  the  observed  road  segment,  (2)  all  of  the  opposing  force  is  destroyed,  or  (3)  the  trial  time 
exceeds  the  maximum  allowed  time. 
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Figure  14.  The  OWF  experiment  editor. 

The  OWF  experiment  GUI  creates  a  series  of  data  files  for  later  analysis.  The  first  file  stores  the 
experimental  setup  for  the  trial.  Data  in  this  file  include  the  location  of  the  mission  box, 
observation  and  firing  positions,  and  the  observed  road  segment.  Separate  files  record  the 
positions,  health,  and  activity  for  the  enemy  and  friendly  units  during  the  experimental  trial.  All 
the  data  files  begin  with  the  base  file  name  supplied  by  the  user  using  the  OWF  experiment  GUI. 
At  the  end  of  each  trial,  the  experiment  library  saves  the  data  files  and  destroys  the  current  set  of 
vehicles. 

The  experiment  library  has  been  very  useful  in  developing  the  OWF  algorithm.  In  addition  to 
running  complete  experiments,  it  has  allowed  us  to  examine  our  methodology  for  picking  firing 
and  observation  positions  by  generating  hundreds  of  potential  positions.  In  the  future,  we  also 
want  use  the  same  tool  to  study  methods  for  generating  concealed  routes  between  the  firing 
positions. 


6.  Conclusions 


In  this  report,  we  have  described  a  method  to  run  multiple  simulation  trials  efficiently  using  the 
OneSAF  battlefield  simulation  tool.  Our  discussion  focused  on  three  main  areas:  (1)  managing 
the  experimental  trials,  (2)  specifying  experimental  parameters  with  a  user  interface,  and 
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(3)  collecting  experimental  data.  In  the  previous  section,  we  illustrated  the  general  methodology 
with  two  examples. 

The  experiment  editors  can  save  a  significant  amount  of  time.  For  the  first  example,  manual  runs 
take  '-'3  min  (i.e.,  1  min  to  setup  the  experiment  and  2  min  for  the  actual  run).  Automated  runs 
take  '-'2.5  min  (i.e.,  2  min  for  the  actual  run  and  a  30-s  delay  between  the  experiments).  The  real 
savings  is  in  the  amount  of  time  the  researcher  must  spend  monitoring  the  system.  In  the  manual 
case,  the  researcher  must  set  up  a  new  run  every  3  min.  In  the  automated  case,  the  researcher 
starts  and  stops  the  set  of  experiments — he  may  attend  to  other  tasks  while  the  experiments  are 
running. 

The  time  savings  is  more  significant  for  executing  a  series  of  OWF  experiments.  A  single  OWF 
experiment  trial  takes  -'25  min  to  execute  manually  (i.e.,  10  min  to  find  a  suitable  road  segment 
and  set  up  the  experimental  trial  and  15  min  to  run  the  trial).  Automated  runs  take  16-20  min 
depending  on  the  complexity  of  the  underlying  terrain.  Just  as  in  the  previous  case,  automated 
runs  require  less  supervision  so  researchers  are  free  to  attend  to  other  tasks  while  the  experiments 
are  running. 
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Intentionally  left  blank. 
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Appendix  A.  The  UUTIL  UNIT  PARAMS  Structure 


This  appendix  appears  in  its  original  form,  without  editorial  change. 
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typedef  struct  uutil_uiiit_params 
{ 


char 

*formation; 

char 

*sub  formation; 

ForcelD 

force; 

uintS 

methodology; 

uintS 

mounted; 

uintS 

_padl; 

ObjectType 

objecttype. 

VehicleMarking 

marking; 

TopUnitMarking 

topunit; 

uintS 

_pad2; 

EchelonRolerole ; 

uintl6  _pad3; 

Jloat64 

location  [XYZC], 

Angle 

direction; 

float32 

competence; 

/*  line,  vee,  wedge*/ 
/*  line,  vee,  wedge*/ 
/*  Friendly,  Opposing,  Neutral  */ 
/*  OneSAF,  Soar  */ 
/*  True  =  Mounted,  False  =  Dismounted  */ 


/*  Radio  call  sign  */ 
/*  Radio  call  sign  for  supervisor*/ 


/*  used  in  unit  editor  as  location  */ 
/*  with  respect  to  the  location  */ 
/*  driving  ability  */ 


UUTIL_EQUIP_DATA 

uintl6 

uintl6 

SimulationAddress 

int32 

int32 

AmpCrftInventory 


equip[UUTIL_MAX_VEHICLE_TYPES]; 

usedefaultmunitions; 

_pad4; 

commander; 

damage; 

repair; 

craft[maxAmphibCraft] ; 


/*  The  following  parameters  are  for  creating  groups  of  pallets  only:  */ 


int32 

float32 

float32 

uintS 

uintS 

uintl6 

ObjectID 

uintl6 

int32 

int32 

int32 

uint32 

float64 


numbertocreate; 

palletrowlength; 

palletrowdistance; 

pallet  row  type;  /*  single  or  double  */ 

_paddingl; 

_padding2; 

superior; 

_pad5; 

posture; 

weapon; 

action; 

_pad6; 

sensor_location[XYZC] ; 


/*  Used  in  unit  editor*/ 


}  UUTIL  UNIT  PARAMS; 
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Appendix  B.  The  Ml  Experiment  Editor 


This  appendix  appears  in  its  original  form,  without  editorial  change. 
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static  void  MlExperiment  (POD  AT  ABASE  *db) 

{ 

/*  Variable  definition  */ 

PO  DB  ENTRY  *frame,  *point_entry,  MlUnit  entry; 
int32  vehicle  id,  methodology,  sx,  sy,  ex,  ey; 
float64  speed,  angle; 
uint32  size; 

char  *otype,  unit  type  [80],  formation  [80]; 

Obj  ectType  obj  ect ; 

ObjectID  MlUnitID; 

UnitClass  MlUnit; 

UUTIL  UNIT  PARAMS  new_MlUnit; 

PO  BUFFER  (PointClass,  point,  pointbuf); 

/*!.  Find  the  object  from  the  nnit  name  and  the  nnit  db*/ 

otype  =  stdname  get  standard  (reader  get  symbol  ("unit  US  Ml  Platoon"));  object  = 
unitdefdb  name  to  object  type  (otype,  nnit  db); 

1*2.  Set  np  the  nnit  parameters  strnctnre  */ 

bzero  (&new_  MlUnit,  sizeof  (UUTIL  UNIT  PARAMS)); 

MlUnit.force  =  distinguishedForcelD; 

MlUnit.methodology  =  0; 

MlUnit. mounted  =  FALSE; 
strcpy  ((char  *)  formation,  "line"); 

MlUnit. formation  =  reader  get  symbol  (formation); 

MlUnit.objecttype  =  object; 

sx  =  5000.0  +  1000.0*drand48  ();  sy  =  5000.0  +  1000.0*drand48  (); 
ex  =  sx  +  500.0*drand48();  ey  =  sy  +  500.0*drand48  (); 

MlUnit.location[0]  =  sx;  MlUnit. location[l]  =  sy; 

angle  =  atan((eby  -  sby)/(ebx  -  sbx)); 

Ml  Unit,  direction  =  RAD_TO_BAM(angle); 

MlUnit.competence  =  1.0; 

MlUnit.usedefaultmunitions  =  TRUE; 

MlUnit. subformation  =  reader_get_symbol("hne"); 

/*3.  Create  the  Ml  platoon  */ 

MlUnit  entry  =  unitutil_create(&MlUnit,  NULL,0,NULL,  0,  TRUE,  db); 

MlUnit  unit  =  PO_UNIT_DATA(MlUnit  entry); 

overlay  =  po_get_object(db,  &PO_UNIT_DATA(MlUnit  entry). overlaylD); 

/*  4.  Create  a  point  for  the  move  mission  */ 

bzero(&point,  sizeof(point)); 

point. overlaylD  =  PO_UNIT_DATA(MlUnit  entry). overlaylD; 
point. style  =  PSgeneral; 
point. color  =  OCGreen; 
point. dashed  =  0; 

point. location.x  =  ex;  point.location.y  =  ey; 

point. direction  =  RAD_TO_BAM(DEG_TO_RAD((float64)  degrees)); 

point  entry  =  po_create_object(db,  NULL,  objectClassPoint, 

FALSE,  &point,  sizeof(point),  NULL); 

/*  5.  Create  the  Move  Mission  */ 

frame  =  taskutil_create_frame("Move"); 
taskutil_set_parameter(frame,  SMUMixedTravel,  "route " , 

&PO_OB  JECT_ID(point_entry)) ; 

speed  =  20.0; 

taskutil_set_parameter(frame,SM_UMixedTravel,"speed",  &speed); 

MlUnit  ID  =  PO_OBJECT_ID(MlUnit  entry); 
taskutil_assign(frame,&  MlUnit  ID); 
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Appendix  C.  The  Reader  File  for  Editor  Shown  in  Figure  9 


This  appendix  appears  in  its  original  form,  without  editorial  change. 


Editor  definition  for  the  Experiment  editor 

Section  One 

( 

(name  "Experiment  Editor") 

(stmet  (my  toggle  uintS  1) 

(defined  uintS  1) 

(good  guy  uintS  40) 

(bad  guy  uintS  40) 

^abell  uintS  20) 

(maxx  uintS  20) 

(minx  uintS  20) 

(maxy  uintS  20) 

(miny  uintS  20) 

(initial  separation  uintS  20) 

(final  separation  uintS  20) 

) 

;;  Section  Two 

(editor 

("Choose  the  Good  Guy"  CHOOSE  ONE  good_guy  SHOW 
("HMMWV"  "vehiele_US_HMMWV") 

("Ml"  "vehiele_US_Ml")) 

("Choose  the  Bad  Guy"  CHOOSE  ONE  bad_guy  SHOW 
("USSR_BMP1"  "vehiele_USSR_BMPl") 

("USSR_BMP2"  "vehiele_USSR_BMP2") 

("USSR_TS0"  "vehiele_USSR_TS0")) 

( "Group  1"  GROUP  VERTICAL 

("Min  X  (meters)"  STRING  minx  I) 

("MAX  X  (meters) "  STRING  maxx  I)) 

( "Group2"  GROUP  VERTICAL 

("MIN  Y  (meters) "  STRING  miny  I) 

("MAX  Y  (meters)"  STRING  maxy  I)) 

( "Groups"  GROUP  VERTICAL 

("Initial  Separation  (meters)"  STRING  initial  separation  I) 
("Final  Separation  (meters)"  STRING  final  separation  I)) 

("  "  CHOOSE  ONE  my  toggle  SHOW 
("START  experiment"  1) 

("STOP  experiment"  2)) 

) 

;;  Section  Three 
(initial 

(my  toggle  CONSTANT  1) 

(defined  CONSTANT  1) 

(bad_guy  CONSTANT  "vehiele_USSR_BMPl") 

(good_guy  CONSTANT  "vehiele_US_UGV_S_T_A") 

Qabell  CONSTANT  "Terrain  Parameters") 

(maxx  CONSTANT  "1000.0" ) 

(minx  CONSTANT  "0.0") 

(maxy  CONSTANT  "1000.0") 

(miny  CONSTANT  "0.0") 

(initial  separation  CONSTANT  "500.0") 

(final  separation  CONSTANT  "50.0") 

) 

(render  NOINIT  REVERT  NEXT) 
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Appendix  D.  The  Overwatching  Fires  Experiment  Editor 


This  appendix  appears  in  its  original  form,  without  editorial  change. 
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#ifndef  lint 

static  char  rcsid  [  ]  =  "$RCSfile$  $Revision$  $State$"; 
#endif 

*  File:  exp3_init.c 

#include  "libexp3_local.h" 

#include  <Xm/Xm.h> 

#include  <Xm/PushB.h> 

#include  <Xm/RowColumn.h> 

#include  <Xm/Frame.h> 

#include  <Xm/Label.h> 

#include  <Xm/Text.h> 

#include  <Xm/ToggleB.h> 

#include  <Xm/ScrollBar.h> 

#include  <p_size.h> 

#include  <po_size.h> 

#include  <libpo.h> 

#include  <stdalloc.h> 

#include  <stdext.h> 

#include  <stdbb.h> 

#include  <stddef.h> 

extern  time  t  time(); 

#include  "exp3_icon.h" 

#defme  BARNAME  "Exp3" 

#defme  DEFINED_TO_NOW  2 

static  UNITDEFDB  DB  unit  db; 
EDT_EDITOR_PTR  result; 

/*  Borrowed  from  other  sections  of  OneSAF  */ 
struct  overlay  search 
{ 

int32found; 

ObjectID*id; 

PO  DB  ENTRY  *entry; 

}; 


static  void  get_an_overlay(PO_DATABASE  *db,ObjectID*id); 

static  void  find_an_overlay(PO_DB_ENTRY  *  entry,  struct  overlaysearch  *  search); 

static  void  expand_route_in_place  (CTDB  *ctdb,  ROUTE  LIST  *rlp); 

float64  Mymax  x,  Mymin  x,  Mymax  y,  Mymin  y; 
long  int  Myseed; 
int32  tickNumber; 

char  dir_base_name[10],  dir_name[20],  elev[60],  los[60],  GenFileName[60],  cmd; 

FILE  *GenFile,*elevFile,*losFile,  *goodPos,  *badPos; 

EXP3_EDITOR  *edtr; 

void  draw_box(  PO  DATABASE  *db,  int32  color, int32  number, 
float64  x0,float64  yO,  float64  xl,float64  yl, 
float64  x2,float64  y2,  float64  x3,float64  y3); 

void  make_box(  float64  Cx,  float64  Cy,float64  distX,  float64  distY,  float64  dX,  float64  dY, 
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float64  *x0,float64  *yO,  float64  *xl,float64  *yl, 
float64  *x2,float64  *y2,  float64  *x3,float64  *y3); 

static  PO  DB  ENTRY  *mak;e_line(  PO  DATABASE  *db,  int  numPoints, 
float64  *x,float64  *y,  iiit32  color); 
static  PO  DB  ENTRY  *make_poiiit(  PO  DATABASE  *db, 

ObjectID  *overlay,  float64  x,  float64  y,  float64  direction); 
static  int32  exp3_alloc(EXP3_EDITOR*edtr,  char  *name,  ObjectID  *id); 
static  void  exp3_dealloc(EXP3_EDITOR*edtr,  int32  which); 
static  void  exp3_done(EDT_EDITOR_PTReditor,  struct  exp3_edt_struct  *new, 

EXP3_EDITOR*edtr,  EDT  EXIT  STATUS  status); 
static  void  exp3_render(EDT_EDITOR_PTReditor,  int32  transient, 

struct  exp3_edt_struct  *old,  struct  exp3_edt_struct  *new,  EXP3_EDITOR*edtr); 
static  void  new_or_changed_handler(PO_DB_ENTRY*entry,  EXP3_EDITOR*edtr); 
static  void  gone_handler(PO_DB_ENTRY*entry,  EXP3_EDITOR*edtr); 

static  void  exp3_selected(Widgetw,  EXP3_EDITOR*edtr,  XmPushButtonCallbackStruct  *call_data); 
static  void  handle_local_force_event(int32  promoted  force,  int32  display,  EXP3_EDITOR*edtr); 
static  int32  exp3_find_suitable_road(PO_DATABASE  *db, 

float64  XMin,  float64  YMin,  float64  XMax,  float64  YMax, 
float64  *tx0,float64  *tyO,  float64  *txl,float64  *tyl, 
float64  *tx2,float64  *ty2,  float64  *tx3,float64  *ty3, 

float64  *ObsxO,float64  *ObsyO,  float64  *Obsxl,float64  *Obsyl,float64  *Obsx2,float64  *Obsy2,  float64 
*Obsx3,float64  *Obsy3, 

float64  *gMinX,float64  *gMinY,  float64  *gMaxX,float64  *gMaxY, 

float64  *StartX,float64  *StartY,  float64  *StopX,float64  *StopY); 

void  exp3_march_along_road(PO_DATABASE  *db,float64  sx,float64  sy,float64  step, 
int32  max_points,  float64  initialDx,float64  initialDy, 
float64  *CurrentRoadX,float64  *CurrentRoadY); 
int32  exp3_time_to_quit(PO_DATABASE  *db); 
void  dump_terrain_surface(  char  *fde_name, 

float64  MinX,float64  MinY,  float64  MaxX,float64  MaxY); 
static  exp3_count  =  0; 

float64  sgx,sgy,sbx,sby,zz,vec[2],  px,py,rx,ry,egx,egy,ebx,eby,anglel,  speed,  degrees; 
float64  tx0,ty0,txl,tyl,tx2,ty2,tx3,ty3,  tlength,twidth,tdx,tdy; 
float64  ObsxO,ObsyO,Obsxl,Obsyl,Obsx2,Obsy2,Obsx3,Obsy3; 

float64  Duration,  my_roadX[150],my_roadY[150],  observedRoadX[50],observedRoadY[50]; 
float64  entranceRoadX[50],entranceRoadY[50],  exitRoadX[10],exitRoadY[10]; 
int32  found_start_point,found_end_point; 

CTDB  *ctdb; 

UUTIL  UNIT  P ARAMS  new  good  guy,  new  bad  guy; 

PO  DB  ENTRY  *BadGuyRouteEntry; 

PO  DB  ENTRY  *good_guy_entry,*bad_guy_entry,*overlay,*overlay_g,*point_entry, 

*point  1  entry,  *point2_entry ; 

static  void  exp3_tick_good(PO_DATABASE  *db) 

{ 

VehiclelD  simnet  id; 

int32vehicle_id; 

static  float64  random  number; 

RGMOVE  PARAMETERS  *my_utravel_parameters,*g_utravel_parameters; 

RGUNNERY  PARAMETERS  *my_rgunnery_parameters; 
char  my_task_name[]  ={"OWFexp"},exp3_label[100]; 
int32  methodology,  x,  y,  degrees; 
uint32  size; 


25 


char  task_type[80],uiiit_type[80],  marking[80],  formation[80]; 

ObjectType  country  type; 
char*otype; 

ObjectType  object; 

ObjectID  good_guy_id,*good_guy_overlay_id; 

ObjectType  my  unit  type; 

UnitClass  good  guy  unit; 

PointClass  point, point l,poiiit2; 

float64  Obox_length,Obox_width,Obox_direction,Tbox_length,Tbox_width,Tbox_direction; 

char  value[80]; 

int32  UsingEditor  =  0; 

PO_DB_ENTRY  *Gframe; 

int32  i,current_time,location_number,  test,is_prep,  is  act; 
uint32  primary_prep_model,  primary  act  model,  model; 
char  MyLosFile[20],  MissionDuration[20]; 

Obox  length  =  sqrt((ObsxO  -  Obsx3)*(ObsxO  -  Obsx3)  +(ObsyO  -  Obsy3)*(ObsyO  -  Obsy3)); 
Obox  width  =  sqrt((ObsxO  -  Obsxl)*(ObsxO  -  Obsxl)  +(ObsyO  -  Obsyl)*(ObsyO  -  Obsyl)); 
Obox  direction  =  atan(  (ObsyO  -  Obsyl)/((ObsxO  -  Obsxl)  +  0.001)); 

Oboxdirection  =  45.0/atan(1.0)*0box_direction; 

Tbox  length  =  sqrt((tx0  -  tx3)*(tx0  -  tx3)  +  (tyO  -  ty3)*(ty0  -  ty3)); 

Tbox  width  =  sqrt((tx0  -  txl)*(tx0  -  txl)  +  (tyO  -  tyl)*(ty0  -  tyl)); 

Tbox  direction  =  atan(  (tyO  -  tyl)/((tx0  -  txl)  +  0.001)); 

Tboxdirection  =  45.0/atan(1.0)*Tbox_direction; 

Duration  =  5.0; 

ctdb  =  (CTDB  *)gcs_get_tdb(GCS_ILLEGAL_CELL,  FALSE); 

/*  the  good  guy  */ 

strcpy((char  *)unit_type,  good  guy); 
sprintf(unit_type,  "unitU  SO  WF_T  eam_  1 "  ,good_guy) ; 
sprintf(exp3_label,"G%d",exp3_count); 
strcpy((char  *)marking,  exp3_label); 
methodology  =  0; 

strcpy((char  *)formation,  "wedge"); 

otype  =  stdname_get_standard(reader_get_symbol("unit_US_OWF_Team_l ")); 
object  =  unitdefdb_name_to_object_type(otype,umt_db); 

bzero(&new_good_guy,  sizeof(UUTIL_lJNIT_P ARAMS)); 
newgoodguy.  force  =  distinguishedForcelD; 
newgoodguy. methodology  =  methodology; 
newgoodguy.  mounted  =  FALSE; 

newgoodguy.  formation  =  reader_get_symbol(formation); 
newgoodguy.objecttype  =  object; 

strcpy((char  *)new_good_guy.marking.text,  (char  *)marking); 
new_good_guy.location[0]  =  (Obsxl  +  Obsx2)/2.0; 
new_good_guy.location[l]  =  (Obsyl  +  Obsy2)/2.0; 
newgoodguy. direction  =  RAD_TO_BAM(Obox_direction); 
newgoodguy.  competence  =  .5; 
newgoodguy.usedefaultmunitions  =  TRUE; 
newgoodguy.subformation  =  reader_get_symbol("line"); 

good  guy  entry  =  unitutil_create(&new_good_guy,  NULL, 0, NULL, 0,  TRUE,  db); 
goodguyunit  =  PO_UNIT_DATA(good_guy_entry); 
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roe_set_permission(good_guy_entry,  freePermission,ROE_propagate_fields); 
overlay _g  =  po_get_object(db,  &PO_lJNIT_DATA(good_guy_eiitry).overlayID); 
goodguyoverlayid  =  &PO_lJNIT_DATA(good_guy_entry).overlayID; 

bzero(&poiiitl,  sizeof(poiiitl)); 

point  1. overlay  ID  =  PO_lJNIT_DATA(good_guy_entry).  overlay  ID; 
pointl. style  =  PStarget; 
pointl.eolor  =  OCYellow; 
pointl. dashed  =  0; 

pointl.loeation.x  =  (txO  +  txl  +tx2  +  tx3)/4.0; 
pointl.loeation.y  =  (tyO  +  tyl  +ty2  +  ty3)/4.0; 
pointl.direetion  =  RAD_TO_BA]VI(anglel); 
pointl  entry  =  po_ereate_objeet(db,  NULL,  objeetClassPoint, 

FALSE,  &pointl,  sizeof(pointl),  NULL); 

/*  Create  the  aetual  frame  */ 

Gframe  =  taskutil_ereate_frame("RGunnery"); 

taskutil_set_parameter(Gframe,SM_RGunnery,"TargxO",&txO); 

taskutil_set_parameter(Gframe,SM_RGunnery,"TargyO",&tyO); 

taskutil_set_parameter(Gframe,SM_RGunnery,"Targxl",&txl); 

taskutil_set_parameter(Gframe,SM_RGunnery,"Targyl",&tyl); 

taskutil_set_parameter(Gframe,SM_RGunnery,"Targx2",&tx2); 

taskutil_set_parameter(Gframe,SM_RGunnery,"Targy2",&ty2); 

taskutil_set_parameter(Gframe,SM_RGunnery,"Targx3",&tx3); 

taskutil_set_parameter(Gframe,  SMRGunnery ,  "Targy3 "  ,&ty3 ) ; 

taskutil_set_parameter(Gframe,SM_RGunnery,"ObsxO",&ObsxO); 

taskutil_set_parameter(Gframe,SM_RGunnery,"ObsyO",&ObsyO); 

taskutil_set_parameter(Gframe,SM_RGunnery,"Obsxl",&Obsxl); 

taskutil_set_parameter(Gframe,SM_RGunnery,"Obsyl",&Obsyl); 

taskutil_set_parameter(Gframe,SM_RGunnery,"Obsx2",&Obsx2); 

taskutil_set_parameter(Gframe,SM_RGunnery,"Obsy2",&Obsy2); 

taskutil_set_parameter(Gframe,SM_RGunnery,"Obsx3",&Obsx3); 

taskutil_set_parameter(Gframe,SM_RGunnery,"Obsy3",&Obsy3); 

taskutil_set_parameter(Gframe,  SMRGunnery,  "Duration"  ,&Duration) ; 

taskutil_set_parameter(Gframe,  SMRGunnery ,  "UsingEditor"  ,&U  singEditor) ; 

taskutil_set_parameter(Gframe,  SM  RGunnery,  "enemyCG" ,  &PO_OB JECT_ID(point  1  entry)) ; 

taskutil_set_parameter(Gframe,SM_RGunnery,"ExereiseNumber",  &exp3_eount); 

goodguyid  =  PO_OBJECT_ID(good_guy_entry); 

taskutil_assign(Gframe,&good_guy_id); 

tiekNumber  =  1 ; 

} 


statie  void  exp3_tiek_bad(PO_DATABASE  *db) 

{ 

VehielelD  simnet  id; 

PO_DB_ENTRY  *frame; 
int32  vehieleid; 
float64  speed; 

statie  float64  random  number; 
float64  pi,angle,radius; 

UMXTRAVEL  PARAMETERS  *my_utravel_parameters,*g_utravel_parameters; 
ehar  my_task_name[]  ={"BAD  TASK"}; 
ehar  exp3_label[100]; 
int32user_spaeing,methodology,  x,  y; 
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float64  y_offset,follow_dist; 
uint32  size; 

char  task_type[80],uiiit_type[80],  marking[80],  formation[80]; 

ObjectType  country  type; 

char*otype; 

ObjectType  object; 

Obj  ectID  bad_guy_id,bad_guy_overlay_id; 

ObjectType  my  unit  type; 

UnitClassbadguyunit; 

PointClass  point, point l,point2; 

PO  DB  ENTRY  *bne_entry,  *box_entry,*linel_entry; 

UNITDEFDB  UNIT  db_bad_guy_unit; 
const  char*bad_guy_name; 

/*  Bad  guy  */ 

PO_BUFFER(LineClass,  line,  bnebuf); 

PO_BUFFER(LineClass,  box,  boxbuf); 
int3  2  i,current_time,  location  number; 
int32  test,is_prep,  is  act; 

uint32  primary_prep_model,  primary  act  model,  model; 

PO  DB  ENTRY  *vehicle_entry[10]; 
int32  n_member,useRoads  =  True; 

VehiclelD  followerID=  {{0,  0},  0}; 

pi  =  4.0*atan(1.0); 
test  =  0; 

speed  =  20.0; 

currenttime  =  time_simulation_time(); 

/*  BAD  GUY  STUFF  */ 

/*  refer  to  bbsafmark  */ 

strcpy((char  *)unit_type,  bad  guy); 
sprintf(exp  3  lab  el, "  B%d" ,  exp  3  count) ; 
strcpy((char  *)marking,  exp3_label); 
methodology  =  0; 
strcpy((char  *)formation,  "line"); 

otype  =  stdname_get_standard(reader_get_symbol("unit_USSR_B]VlP2_Platoon")); 
object  =  unitdefdb_name_to_object_type(otype,unit_db); 

bzero(&new_bad_guy,  sizeof(UUTIL_UNIT_P ARAMS)); 

newbadguy.  force  =  otherForcelD; 
newbadguy.methodology  =  methodology; 
newbadguy. mounted  =  TRUE; 

newbadguy.formation  =  reader_get_symbol(formation); 
newbadguy.objecttype  =  object; 

strcpy((char  *)new_bad_guy.marking.text,  (char  *)marking); 
new_bad_guy.location[0]  =  my_roadX[0]; 
new_bad_guy.location[l]  =  my_roadY[0]; 

angle  =  atan((my_roadY[l]  -  my_roadY[0])/(my_roadX[l]  -  my_roadX[0])); 
newbadguy  .direction  =  RAD_TO_BAM(angle); 
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newbadguy.competence  =  1.0; 
newbadguy.usedefaultmunitions  =  TRUE; 
newbadguy.subformation  =  reader_get_symbol("line"); 


bad  guy  entry  =  uiiitutil_create(&new_bad_guy,  NULL, 0, NULL,  0,  TRUE,  db); 
badguyunit  =  PO_UNIT_DATA(bad_guy_entry); 

roe_set_permission(bad_guy_eiitry,  holdPermissioii,ROE_propagate_fields); 
overlay  =  po_get_object(db,  &PO_UNIT_DATA(bad_guy_entry).overlayID); 

/*  Create  a  point  for  the  overlay  */ 


printf("EXP3  done  ereating  point  for  bad  guy . \n"); 

/*  Create  the  aetual  frame  */ 

frame  =  taskutil_ereate_frame("Move"); 

taskutil_set_parameter(frame,SM_UMixedTravel,  "route", 

&PO_OBJECT_ID(BadGuyRouteEntry)); 

speed  =  13.0; 
yoffset  =  5.0; 

taskutil_set_parameter(frame, SM  UMixedTravel, "speed" ,  &speed) ; 
taskutil_set_parameter(frame,  SM  UMixedTravel,  "roadmareh" ,  &useRoads) ; 
taskutil_set_parameter( frame,  SM  UMixedTravel, "  formation" ,  &formation); 
taskutil_set_parameter(frame,SM_UMixedTravel,"follow_dist",  &y_offset); 
taskutil_set_parameter(frame,SM_UMixedTravel, "leader",  &followerID); 


badguyid  =  PO_OBJECT_ID(bad_guy_entry); 
taskutil_assign(frame,&bad_guy_id); 

tl  =  timelastrealtimeeloek; 
my  time  =  (float)  tl/1000.0; 


statie  void  exp3_tiek(PO_DATABASE  *db) 

{ 

float64  pi,angle,radius,Gx,Gy; 

float64  gMinX,gMinY,gMaxX,gMaxY ; 

float64  dist  good,  dist  bad,  time  good,  time  bad; 

int32  my  milliseeond; 

int32  grade; 

int32  end  seg,  esi; 

ehar  goodFileName[20],badFileName[20]; 

CTDB  *out_etdb; 

etdb  =  (CTDB  *)ges_get_tdb(GCS_ILLEGAL_CELL,  FALSE); 
speed  =  20.0; 

exp3_eount  =  exp3_eount  +  1 ; 

/*  1 .  find  a  road  segment  for  the  enemy  units  to  use  */ 

grade  =  exp3_find_suitable_road(  db,Mymin_x,Mymin_y,Mymax_x,Mymax_y, 
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&txO,&tyO,  &txl,&tyl,&tx2,&ty2,  &tx3,&ty3,&ObsxO,&ObsyO, 
&Obsxl,&Obsyl,&Obsx2,&Obsy2,  &Obsx3,&Obsy3, 
&gMinX,&gMinY,&gMaxX,&gMaxY,&sbx,&sby,&ebx,&eby); 

sprintf(GenFileName,"%sGen.%d",dir_base_name,exp3_couiit); 
sprintf(goodFileName,"%sGood.%d",dir_base_name,exp3_couiit); 
spriiitf(badFileName,"%sBad.%d",dir_base_name,exp3_couiit); 
printfC'My  fde  is  %s",GeiiFileName); 

GenFile  =  fopen(GenFileName,"w"); 
goodPos  =  fopen(goodFileName,"w"); 
badPos  =  fopeii(badFileName,"w"); 

^riiitf(GenFile,  "Target  (%.31f,  %.31f)  (%.31f,  %.31f)  (%.31f,  %.31f)  (%.31f,  %.31f)  \n", 
tx0,ty0,txl,tyl,tx2,tx2,tx3,tx3); 

^riiitf(GenFile,  "Obs  (%.31f,  %.31f)  (%.31f,  %.31f)  (%.31f,  %.31f)  (%.31f,  %.31f)  \n", 
ObsxO,ObsyO,Obsxl,Obsyl,Obsx2,Obsx2,Obsx3,Obsx3); 

^riiitf(GenFile,  "BoundingBox  (%.31f,  %.31f)  (%.31f,  %.31f)\n", 

gMinX,gMinX,gMaxX,gMaxX) ; 

fclose(GenFile); 

dump_terrain_surface(dir_base_name,  gMiiiX,gMinY,gMaxX,gMaxY); 

tdx  =  tx3  -  txO; 
tdy  =  ty3  -  tyO; 

tlength  =  sqrt(tdx*tdx  +  tdy*tdy); 
tdx  =  tdx/(tlength  +  0.001);  tdy  =  tdy/(tlength  +  0.001); 

twidth  =  sqrt((txl  -  tx0)*(txl  -  txO)  +  (tyl  -  ty0)*(tyl  -  tyO)); 

Gx  =  (txO  +  txl  +  tx2  +  tx3  +  ObsxO  +  Obsxl  +  Obsx2  +  Obsx3)/8.0; 

Gy  =  (tyO  +  tyl  +  ty2  +  ty3  +  ObsyO  +  Obsyl  +  Obsy2  +  Obsy3)/8.0; 

tactmap  set  center  (edtr->tactmap,  (iiit32)  txO,  (iiit32)  tyO,  GCS  ILLEGAL  CELL); 

draw_box(db,OCBlack,exp3_count,txO,tyO,txl,tyl,tx2,ty2,tx3,ty3); 

draw_box(db,OCBlack,exp3_couiit, ObsxO, ObsyO, Obsxl, Obsyl,Obsx2,Obsy2,Obsx3,Obsy3); 

/*  scedules  the  good  guy  and  bad  guy  events  */ 
printf("seheduling  bad  guy  \n"); 

sehed_deferred_fnel((SCF[ED_FlJNCTION)exp3_tiek_bad,10,  my_groupG,A_PTR,db,A_END); 
sehed_deferred_fnel((SCHED_FUNCTION)exp3_tiek_good,10000,  my_groupB,A_PTR,db,A_END); 


} 

/*  MAF  */ 


/*ARGSUSED*/ 
statie  void  exp3_edit( 

SGUI_PTRgui, 
SGUI_MODE_PTR  mode, 
EDT_EDITOR_PTReditor, 
SGUI_MODE_STATE  state) 

{ 

edt_state(editor,  mode,  state); 

} 


void  exp3_init(lJNITDEFDB_DB  unitdefdb) 

{ 

unitdb  =  unitdefdb; 

} 
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iiit32  exp3_init_gui( 

char*data_path, 
uiiit32  reader  flags, 

SGUI_PTR  gui, 

T  ACTMAPPTRtaetmap, 

COORD_TCC_PTRtee, 

GC  map  erase  ge, 

SNSTVE_WINDOW_PTRsensitive, 
CALLBACKEVENTPTR  refreshevent, 

PO_DATABASE  *db) 

{ 

READER  UNION  data; 

ObjeetID  dummy; 

UnitClassunit; 
int32  exp3; 
int32  whieh; 

int32  ret  =  reader_read("exp3.rdr",  data_path,  &data, 
reader  flags  &  -READER  TYPING); 

etdb  =  (CTDB  *)ges_get_tdb(GCS_ILLEGAL_CELL,  FALSE); 
etdb_get_extent(  etdb,&gmin_x,&gmin_y,&gmax_x,&gmax_y); 


if  (ret) 
return  ret; 

edtr  =  (EXP3_EDITOR  *)STDALLOC(sizeof(EXP3_EDITOR)); 
bzero((ehar  *)edtr,  sizeof(EXP3_EDITOR)); 


edtr->gui  =  gui; 
edtr->taetmap  =  taetmap; 
edtr->map_erase_ge  =  maperasege; 
edtr->sensitive  =  sensitive; 
edtr->db  =  db; 


edtr->editor  =  edt_ereate(data.array, 

sizeof(struet  exp3_edt_struet), 

/*  eallbaek  */ 

(EDT  RENDER  FUNCTION)  exp3_render,  (ADDRESS)  edtr, 
(EDT  RENDER  FUNCTION)  exp3_render,  (ADDRESS)  edtr, 
/*  eallbaek  */ 

(EDT  EXIT  FUNCTION)  exp3_done,  edtr, 

TRUE,  gui,  taetmap,  map  erase  ge,  sensitive,  refresh  event,  db); 
edtr->mode  = 

sgui_add_mode(gui,  SGUI_OBJECTJV[ODE, 

(ehar  *)  exp3_ieon_bits,  exp3_ieon_width,  exp3_ieon_height, 

/*  eallbaek  */ 

(SGUI_MODE_CALLBACK)exp3_edit,  edtr->editor, 

"Exp3  Editor",  "Exp3  Editor  **"); 


/*  Make  our  first  exp3  button  now,  to  reserve  our  plaee  on  the 
*  menubar. 

*/ 
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/*  Post  callbacks  for  exp3  objects  */ 
callback_register_handler(db->new_object_event, 

(CALLBACK  HANDLER)  new  or  changed  handler,  edtr); 
callback_register_handler(db->object_changed_event, 

(CALLBACK  HANDLER)  new  or  changed  handler,  edtr); 
callback_register_handler(db->object_gone_event,(CALLBACK_HANDLER)  gone  handler,  edtr); 

/*  Register  a  handler  for  privilege  local  force  changing  */ 
callback_register_handler( 

priv_get_local_force_event(sgui_get_priv(edtr->gui)), 

(CALLBACK  HANDLER)  handle  local  force  event,  edtr); 


return  0; 

} 

/*  exp3_done  (a  callback  routine)  gets  called  whenever  the  user  presses 
*  'Done'  or  'Abort'  from  the  exp3  editor. 

*/ 

/*ARGSUSED*/ 
static  void  exp3_done( 

EDT_EDITOR_PTReditor, 
struct  exp3_edt_stmct  *new, 

EXP3_EDITOR*edtr, 

EDT  EXIT  STATUS  status) 

{ 

int  i; 

PODBENTRY  *  entry; 

SCHEDFNCLPTR  myfunct; 

/*  Create  the  object  if  the  Done  button  was  pressed,  otherwise  do  nothing*/ 

mygroup  =  9976; 

mygroup  =  1173; 

mygroup  =  4621; 

if  (status  ==  EDT  DONE) 

{ 

toggle  =  new->my_toggle; 
sscanf(new->seed,"%ld",&Myseed); 
printf("here  with  seed  =  %ld\n",Myseed); 
sscanf(new->minx,"%lf',&Mymin_x); 
sscanf(new->maxx,"%lf',&]Vtymax_x); 
sscanf(new->miny, "  %lf '  ,&Mymin_y) ; 
sscanf(new->maxy, "  %lf '  ,&Mymax_y) ; 

printf("(%.3f,  %.3f)  -  (%.3f,  %.3f)  \n",Mymin_x,Mymin_y,Mymax_x,Mymax_y); 

sscanf^(new->Trials,"%d",&Trials); 

sscanf(new->TrialDuration,"%lf',&TrialDuration); 

sscanf(new->good_guy,"%s",good_guy); 

s  scanf(ne  w->bad_guy , "  %  s "  ,bad_guy) ; 

srand48(Myseed); 

printf("coming  in  with  %s  ",new->base_file_name); 
sprintf(dir_base_name, "  %s "  ,new->base_file_name) ; 
printf("leaving  with  %s  ",dir_base_name); 
if  (toggle  ==  1) 

{ 

tickNumber  =  -99999999; 

sched_deferred_fncl((SCHED_FlJNCTION)  exp3_schedule_tick,90,  my  group, 
A_PTR,edtr->db,A_END); 


32 


sched_deferred_fiicl((SCHED_FUNCTION)  exp3_tick,90,  my  group, 
A_PTR,edtr->db,A_END); 

} 

} 

else  if  (status  ==  EDT  ABORT) 

{ 

priiitf("EXP3  rying  to  eaneel  the  tiek  \n"); 

} 


statie  void  exp3_render( 

EDT_EDITOR_PTReditor, 
iiit32  transient, 
stmet  exp3_edt_stmet  *old, 
stmet  exp3_edt_stmet  *new, 

EXP3_EDITOR*edtr) 

{ 

if  (new->defined  ==  0) 

{ 

stmet  exp3_edt_straet  eopy; 
sprintf(eopy.base_file_name,"Gun"); 
sprint  f(eopy.  minx, "%.  1  If My  minx) ; 
sprintf(eopy.maxx,"%.llf',Mymax_x); 
sprintf(eopy .  miny, "% .  1  If '  ,Mymin_y) ; 
sprintf(eopy .  maxy , "  % .  1  If ' ,  Mymaxy) ; 
sprintf(eopy .  seed, "  %ld ", &My  seed) ; 
eopy  .defined  =  1 ; 

strepy(eopy.good_guy,new->good_guy); 

strepy(eopy.bad_guy,new->bad_guy); 

strepy (eopy .  Trials,  new->Trials) ; 

strepy (eopy .  TrialDuration,  new->TrialDuration) ; 

printf("in  render  \n"); 

printf("eoming  in  with  %s  ",new->base_file_name); 
sprintf(dir_base_name, "  %s "  ,new->base_file_name) ; 
edt_load(edtr->editor,  &eopy,  sizeof(eopy)); 

} 


/*  Alloeate  a  button  on  the  menubar. 

*/ 

statie  int32  exp3_alloe( 

EXP3_EDITOR*edtr, 
ehar  *name, 

ObjeetID  *id) 

{ 

int32  this  =  edtr->n_menu; 
int32  i; 

XmString  xms; 

Argargs[l]; 

/*  Make  sure  we  don't  post  the  same  thing  twiee  */ 
for  (i=0;i<edtr->n_menu;i++) 

if  (NS_OBJECT_IDS_EQUAL(edtr->menu[i].hhour_id,  *id)) 

{ 

this  =  i; 
break; 
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} 

if  (this  ==  edtr->ii_menu) 

{ 

edtr->ii_menu  +=  1 ; 
if  (!edtr->menu) 

{ 

edtr->menu  =  (struct  exp3_menu  *) 

STDALLOC(sizeof(struct  exp3_menu)); 
edtr->menu_size  =  1 ; 

} 

else  if  (edtr->n_menu  >  edtr->menu_size) 

{ 

edtr->menu_size  =  edtr->n_menu; 
edtr->menu  =  (struct  exp3_menu  *) 

STDREALLOC(edtr->menu, 

sizeof( struct  exp3_menu)  *  edtr->menu_size); 


edtr->menu[this]. button  = 

sgui_add_menubar(edtr->gui,  PRIV  COMMANDER,  BARNAME, 
"Traffic",  xmPushButtonWidgetClass); 
edtr->menu[this].hhour_id  =  *id; 

/*  Post  a  handler  */ 

XtAddCallback(edtr->menu[this]  .button,  XmNactivateCallback, 
(XtCallbackProc)  exp3_selected,  edtr); 

} 

xms  =  XmSbingCreateLtoR(name,  XmSTRING_DEFAULT_CHARSET); 
XtSetArg(args[0],  XmNlabelString,  xms); 

XtSefValues(edtr->menu[this].button,  args,  1); 

XmStringFree(xms) ; 

return  this; 


/*  Remove  a  button  from  the  menubar  (note  that  we  do  not  reuse  buttons 
*  because  the  user  probably  exp3ects  these  to  be  in  the  order  received). 

*/ 

static  void  exp3_dealloc( 

EXP3_EDITOR*edtr, 
int32  which) 

{ 

int32  i; 

XtUnmanageChild(edtr->menu[which]. button); 
XtDestroyWidget(edtr->menu[which]. button); 


for  (i=which;  i<edtr->n_menu-l;  i++) 

edtr->menu[i]  =  edtr->menu[i+l]; 
edtr->n_menu— ; 

} 


/*  Flandle  new  exp3 
*/ 
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static  void  new_or_changed_handler( 

PO_DB_ENTRY*entry, 

EXP3_EDITOR*edtr) 

{ 

PO_DB_ENTRY  *uiiit; 
iiit32  which; 

/*  Ignore  stuff  we  don't  want  */ 

if  ((PO_OBJECT_CLASS(entry)  !=  objectClassHHour)  ||  (PO_HHOUR_DATA(entry).forceID 
forcelDIrrelevant)) 
return; 

/*  Make  a  button  (if  there  already  is  a  button,  this  will  find  it)  */ 

which  =  exp3_alloc(edtr,  PO_HHOUR_DATA(entry).name,  &PO_OBJECT_ID(entry)); 

/*  Make  sure  the  button  is  unmanaged  if  it  doesn't  match  the 
*  local  force  setting,  and  managed  if  it  does. 

*/ 

if  (!priv_get_local_force(sgui_get_priv(edtr->gui), 

PO_HHOUR_DATA(entry).forceID)) 

{ 

XtUnmanageChild(edtr->menu[which]. button); 

} 

else 

{ 

XtManageChild(edtr->menu[which]. button); 


/*  Handle  exp3  going  away. 

*/ 

static  void  gone_handler( 

PO_DB_ENTRY*entry, 

EXP3_EDITOR*edtr) 

{ 

int32  i; 

/*  Ignore  stuff  we  don't  want  */ 

if((PO_OBJECT_CLASS(entry)  !=  objectClassHHour)  || 

(PO_HHOUR_DATA(entry).forceID  ==  forcelDIrrelevant)) 
return; 

/*  Is  this  in  our  list?  */ 
for  (i=0;i<edtr->n_menu;i++) 

if  (NS_OBJECT_IDS_EQUAL(edtr->menu[i]  .hhour  id,  PO_OB JECT_ID(entry))) 

{ 

exp3_dealloc(edtr,  i); 
return; 

} 


/*  Handle  exp3  being  selected  from  the  menu  bar  */ 
static  void  exp3_selected( 

Widgetw, 

EXP3_EDITOR*edtr, 
XmPushButtonCallbackStruct  *call_data) 

{ 
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int32  i; 

PODBENTRY  *  entry; 

HHourClass  *po_data; 
struct  exp3_edt_struct  copy; 

for  (i=0;i<edtr->n_menu;i++) 

if  (w  ==  edtr->menu[i]. button) 
break; 


if  (i==edtr->n_menu) 
return; 

if  (NS_OBJECT_ID_NULL(edtr->menu[i].hhour_id)  || 

!  (entry  =  po_get_object(edtr->db,  &edtr->menu[i].hhour_id))  || 
(PO_OBJECT_CLASS(entry)  !=  objectClassHHour)) 
return; 

sgui_set_mode(edtr->mode) ; 

/*  Remember  what  we're  editing  */ 

/*  Load  it  with  initial  values  */ 
edt_load(edtr->editor,  &copy,  sizeof(copy)); 


/*  Handle  which  exp3  should  be  available  to  be  selected  from  the  menu  bar  */ 
static  void  manage_exp3_force(EXP3_EDITOR  *edtr) 

{ 

int32  iloop; 

PODBENTRY  *  entry; 

PRIV_PTR  priv; 

priv  =  sgui_get_priv(edtr->gui); 

/*  Manage  exp3  buttons  which  should  be  displayed  and 

*  unmanage  exp3  buttons  which  should  not  be  displayed 

*  according  to  the  current  local  force  settings. 

*/ 

for  (iloop  =  0;  iloop  <  edtr->n_menu;  iloop++) 

{ 

/*  See  if  this  is  what  we  exp3ect  */ 
if  (NS_OBJECT_ID_NULL(edtr->menu[iloop].hhour_id)  || 

!  (entry  =  po_get_object(edtr->db,  &edtr->menu[iloop].hhour_id))  || 
(PO_OBJECT_CLASS(entry)  !=  objectClassHHour)) 
continue; 

if  (priv_get_local_force(priv,  PO_HHOUR_DATA(entry).forceID)) 

{ 

XtManageChild(edtr->menu[iloop]. button); 

} 

else 

{ 

XtUnmanageChild(edtr->menu[iloop]. button); 

} 

} 


/*  If  an  exp3  was  being  edited  and  it  should  be  unmanaged  due 
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*  to  the  local  force  setting,  exit  the  editor. 

*/ 

if  (!NS_OBJECT_ID_NULL(edtr->being_edited)  && 

(entry  =  po_get_object(edtr->db,  &edtr->being_edited))  && 
(PO_OBJECT_CLASS(entry)  —  objectClassHHour)  && 
(!priv_get_local_force(priv,  PO_HHOUR_DATA(entry).forceID))) 

{ 

sgui_leave_mode(edb->gui) ; 


static  void  handle_local_force_event( 
int32  promoted  force, 
int32  display, 

EXP3_EDITOR*edtr) 

{ 

ForcelD  force  =  (ForcelD)  promoted  force; 

/*  Make  sure  the  exp3  buttons  are  managed/unmanaged  according  to 
*  the  local  force  setting. This  is  just  a  pass  through  routine. 

*/ 

manage_exp3_force(edtr); 

} 


static  void  expand_route_in_place  (CTDB  *ctdb, 

ROUTE  LIST  *rlp) 

{ 

int32  n  verts; 
float64  *verts; 

ROUTE  LIST  *wrp  =  rip; 
int32  count,  pnum,  pdx; 

while  (wrp) 

{ 

if  (wrp->sectype  ==  ROUTETYPEEMPTY) 

{ 

printf  ("expand  route:  empty  route  encountered\n"); 
break; 

} 


if  (wrp->sectype  ==  ROUTETYPEPOINTS) 

{ 

wrp  =  wrp->next; 
continue; 

} 


/*  Flere  if  we  actually  have  a  road  to  expand  */ 

if  (wrp->route.secroad.direction  ==  ROUTEFIRSTTOLAST) 

{ 

/* 

*  If  the  previous  element  of  the  route  list  was  a  point, 

*  then  this  is  the  road  segment  containing  that  point,  and 

*  first  point  on  this  segment  should  be  dropped,  since  it 

*  it  is  not  actually  on  the  route: 
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* 

.  .  AA 


*  I II  endAt 

*  I  |startAt+l  ... 

*  I  previous  point 

*  startAt 

*/ 

count  =  (wrp->route.secroad. endAt  -  wrp->route.secroad.startAt)  +  1; 

NS_ROUTE_ALLOCATE_POINTS(&(wrp->route.secpoints),  count,  TRUE); 

averts  =  ctdb_expand_edge(ctdb,  wrp->route.secroad.index, 

0,  &verts,  NULL,  NULL); 

for  (pnum  =  wrp->route.secroad.startAt,  pdx  =  0; 
pnum  <=  wrp->route.secroad.endAt; 

++pnum,  ++pdx) 

{ 

wrp->route.secpoints.points[pdx].point[0]  =  verts[2*pnum]; 
wrp->route.secpoints.points[pdx].point[l]  =  verts[2*pnum+l]; 


count  =  (wrp->route.secroad.startAt  -  wrp->route.secroad.endAt)  +  1; 

NS_ROUTE_ALLOCATE_POINTS(&(wrp->route.secpoints),  count,  TRUE); 

averts  =  ctdb_expand_edge(ctdb,  wrp->route.secroad.index, 

0,  &verts,  NULL,  NULL); 

for  (pnum  =  wrp->route.secroad.startAt,  pdx  =  0; 
pnum  >=  wrp->route.secroad.endAt; 

—pnum,  ++pdx) 

{ 

wrp->route.secpoints.points[pdx].point[0]  =  verts[2*pnum]; 
wrp->route.secpoints.points[pdx].point[l]  =  verts[2*pnum+l]; 


wrp  =  wrp->next; 


#define  ApproachingBox  1001 
#define  InBox  1002 
#define  LeavingBox  1003 

void  exp3_schedule_tick(PO_DATABASE  *db) 

{ 

floated  pos[XYZC]; 

static  int  elapsed_time,start_time; 

int  current  time; 

int32  i,QuitTime; 

PO  DB  ENTRY  *vehicle_entry[10]; 
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static  int32  BadGuyStatus  =  ApproachingBox; 
if  (tickNumber  ==  1) 

{ 

starttime  =time_last_simulatioii_clock; 
elapsedtime  =  0; 

system("play  -v  8.1  /usr/share/sounds/gnibbles/pop.wav"); 
NumberGoodVehicles  =  uiiitorg_get_hierarchy(good_guy_entry, FALSE, 
TRUE,vehicle_entry,  20); 
for  (i=0;i  <  NumberGoodVehicles;  i++) 

{ 

GoodVehicleID[i]  =  vtab_vehicle_number( 

&PO_lJNIT_DATA(vehicle_entry[i]).simulatioiiID); 

} 


NumberBadVehicles  =  umtorg_get_hierarchy(bad_guy_entry, FALSE, 

TRUE,vehicle_entry,  20); 

for  (i=0;i  <  NumberBadVehicles;  i++) 

{ 

BadVehicleID[i]  =  vtab_vehicle_number( 

&PO_lJNIT_DATA(vehicle_entry  [i]) .  simulationID) ; 

} 

for  (i  =  0;  i  <  NumberGoodVehicles;  i++) 

{ 

fprintf(goodPos,"%dX  %dY  ",i,GoodVehicleID[i]); 

} 

fprintf(goodPos,"\n"); 

for  (i  =  0;  i  <  NumberBadVehicles;  i++) 

{ 

fprintf(badPos,"%dX  %dY  ",i,BadVehicleID[i]); 

} 

fprintf(badPos,  "\n") ; 
tickNumber  =  tickNumber  +  1 ; 

} 

else  if  (tickNumber  ==  -99999999) 

{ 

printf("cant  work  yet  \n"); 

} 

else  if  (  BadGuyStatus  ==  LeavingBox) 

{ 

printf("EXP3  next  one  \n"); 

system("play  -v  8.1  /usr/share/sounds/gnibbles/pop.wav"); 
BadGuyStatus  =  ApproachingBox; 
fclose(goodPos); 
fclose(badPos); 

system("play  -v  8.1  /usr/share/sounds/gnibbles/pop.wav"); 
system("play  -v  8.1  /usr/share/sounds/gnibbles/pop.wav"); 
sleep(l); 

unitutil_delete_object(db,&PO_OBJECT_ID(good_guy_entry),TRUE); 
unitutil_delete_object(db,&PO_OBJECT_ID(bad_guy_entry),TRUE); 
sched_deferred_fncl((SCHED_FUNCTION)  exp3_tick,  1 00, 
my_group,A_PTR,db,A_END); 
tickNumber  =  -99999999; 

} 

else  if  ( elapsed  time  >  20*60*1000) 

{ 
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/*  MAF  */ 

unitutil_delete_object(db,&PO_OBJECT_ID(bad_guy_entry),TRUE); 
uiiitutil_delete_object(db,&PO_OBJECT_ID(good_guy_eiitry),TRUE); 
sched_deferred_fiicl((SCHED_FUNCTION)  exp3_tick,  1 00, 
my_group,A_PTR,db,A_END); 
tickNumber  =  -99999999; 

} 

else 

{ 

eurrenttime  =  timelastsimulationeloek; 
elapsed  time  =  eurrent  time  -  start  time; 
tiekNumber  =  tiekNumber  -l-  1 ; 

} 

/*  print  out  vehiele  positions  */ 
if  (tiekNumber  >  0) 

{ 


fprintf(goodPos,"%d  %ld", tiekNumber, elapsedtime); 
for  (i  =  0;  i  <  NumberGoodVehieles;  i++) 

{ 

ent_get_position_ges(GoodVehieleID[i]  ,pos); 
fprintf(goodPos,"%d  %.3f  %.3f  ",GoodVehieleID[i],pos[X],pos[Y]); 

} 

fprintf(goodPos,"\n"); 

fprintf(badPos,"%d  %ld  ",tiekNumber,elapsed_time); 
for  (i  =  0;  i  <  NumberBadVehieles;  i++) 

{ 

ent_get_position_ges(BadVehieleID[i]  ,pos); 
fprintf(badPos,"%d  %.3f  %.3f  ",BadVehieleID[i],pos[X],pos[Y]); 

} 

fprintf(badPos,"\n"); 

} 

selied_deferred_fnel((SCFtED_FlJNCTION)  exp3_seliedule_tiek,1000,my_group,A_PTR,db,A_END); 

} 


int  exp3_get_number() 

{ 

int  number; 

number  =  exp3_number; 
return  number; 


float64  exp3_get_start_time() 

{ 

float64  number; 
number  =  mytime; 
return  number; 

} 

void  make_box(  float64  Cx,float64  Cy, 
float64  distX,float64  distY, 
float64  dX,float64  dY, 
float64  *x0,float64  *y0, 
float64  *xl,float64  *yl, 
float64  *x2,float64  *y2, 
float64  *x3,float64  *y3) 

{ 
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float64  ddx,ddy; 

float64  xxO,  yy0,xxl,yyl,xx2,yy2,xx3,yy3; 

ddx  =  distX/2.0; 
ddy  =  distY/2.0; 

xxO  =  Cx  +  (-1.0*ddx)*dX  +  (-1.0*ddy)*dY; 
yyO  =  Cy  +  (-1.0*ddx)*dY  -  (-1.0*ddy)*dX; 

xxl  =  Cx  +  (-1.0*ddx)*dX  +  (1.0*ddy)*dY; 
yyl  =  Cy  +  (-1.0*ddx)*dY  -  (1.0*ddy)*dX; 

xx2  =  Cx  +  (1.0*ddx)*dX  +  (1.0*ddy)*dY; 
yy2  =  Cy  +  (1.0*ddx)*dY  -  (1.0*ddy)*dX; 

xx3  =  Cx  +  (1.0*ddx)*dX  +  (-1.0*ddy)*dY; 
yy3  =  Cy  +  (1.0*ddx)*dY  -  (-1.0*ddy)*dX; 

*xO  =  xxO;  *yO  =  yyO;  *xl  =  xxl;  *yl  =  yyl; 
*x2  =  xx2;  *y2  =  yy2;  *x3  =  xx3;  *y3  =  yy3; 


#defme  DEG_TO_RAD  atan(1.0)/45.0 
#define  min  radius  5000 
#define  max  radius  10000 

static  iiit32  exp3_find_suitable_road(PO_DATABASE  *db, 
float64  XMin,  float64  YMin, 
float64  XMax,  float64  YMax, 
float64  *tx0,float64  *tyO, 
float64  *txl,float64  *tyl, 
float64  *tx2,float64  *ty2, 
float64  *tx3,float64  *ty3, 
float64  *ObsxO,float64  *ObsyO, 
float64  *Obsxl,float64  *Obsyl, 
float64  *Obsx2,float64  *Obsy2, 
float64  *Obsx3,float64  *Obsy3, 
float64  *gMinX,float64  *gMinY, 
float64  *gMaxX,float64  *gMaxY, 
float64  *StartX,float64  *StartY, 
float64  *StopX,float64  *StopY) 

{ 

UnitClassunit; 

float64  initialX,initialY,sx,sy,ex,ey; 

float64  mx,my,Mx,My,ddx,ddy,borderx,bordery; 

int3  2  found_start_poiiit,  found_end_point ; 

int32  trys,segO,segl ,seg2,current_road,end_road_segment; 

int32  subsecl,subsec2; 

iiit32  point  in  the  box; 

iiit32  i,k, Grade; 

iiit32  attempts  to  find  road; 

iiit32  max_poiiits,observedRoadPoiiits,entranceRoadPoiiits,exitRoadPoiiits; 
float64  adx,ady,Txx0,  TyyO,Txxl,Tyyl,Txx2,Tyy2,Txx3,Tyy3; 
float64  OxxO,  OyyO,Oxxl,Oyyl,Oxx2,Oyy2,Oxx3,Oyy3; 
floated  MinX,MinY,MaxX,MaxY; 

floated  ObsCx,ObsCy,  MaxXRoad,MaxYRoad,MinXRoad,MinYRoad; 
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float64  TargCx,TargCy,len; 
float64  TargBx,TargBy; 
float64  iiiitialDx,iiiitialDy; 
float64  road[2]; 

float64  radius, ccos,ssin, angle, px,py; 
float64  MajorAxisLength,  MinorAxisLength; 
float64  ObserverMinorAxisLength; 

observedRoadPoints  =  50; 
entranceRoadPoints  =  30; 
exitRoadPoints  =10; 

attemptstofmdroad  =  0; 

Grade  =  UNACCEPTABLE; 

while  ( (attempts  to  fmd  road  <  50)  &&  (Grade  ==  UNACCEPTABLE)) 

{ 

found_start_point  =  NO; 
trys  =  0; 

/*  la.  find  a  starting  point  on  the  road  */ 

while  ((found_start_point  ==  NO)&&  (trys  <  1000)) 

{ 

trys  =  trys  +  1 ; 

initialX  =  drand48()*(XMax  -  XMin)  +  XMin; 
initialY  =  drand480*(YMax  -  YMin)  +  YMin; 
found_start_point  =  etdb_nearest_road(etdb, 
initialX,initialY,1000.0,&seg0,NULL); 

rt_find_point_on_road(etdb,segO,initialX,initialY,&subsee  1 ,  road); 
sx  =  road[0];mx  =  sx;  Mx  =  sx; 
sy  =  road[l];my  =  sy;  My  =  sy; 

} 


/*  lb.  find  the  rest  of  the  road  */ 
if  (found_start_point  ==  YES) 

{ 

rt_find_point_on_road(etdb,segO,initialX,initialY,&subsee  1 ,  road); 
sx  =  road[0];mx  =  sx;  Mx  =  sx; 
sy  =  road[l];my  =  sy;  My  =  sy; 
angle  =  2.0*PI*drand48(); 

initialDx  =  sin(angle); 
initialDy  =  eos(angle); 

exp3_mareh_along_road(db,sx,sy,20.0,observedRoadPoints, 

initialDx,initialDy, 

observedRoadX,observedRoadY); 

eurrentroad  =  segO; 

} 


TargCx  =  0.0;  TargCy  =  0.0; 

for  (i  =  0;  i  <  observedRoadPoints;  i++) 

{ 

TargCx  =TargCx+  observedRoadX[i]; 

TargCy  =TargCy+  observedRoadY[i]; 

if  (my  >  observedRoadY[i])  my  =  observedRoadY[i]; 
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if  (My  <  observedRoadY[i])  My  =  observedRoadY[i]; 

} 

adx  =  observedRoadX[observedRoadPoiiits  -1  ]  -  observedRoadX[0]; 
ady  =  observedRoadY[observedRoadPoiiits  -1]  -  observedRoadY[0]; 
MajorAxisLength  =  sqrt(adx*adx  +  ady*ady)  +  0.00001; 
adx  =  adx/MajorAxisLength; 
ady  =  ady/MajorAxisLength; 

MinorAxisLength  =  MajorAxisLength*2. 0/3.0; 

TargCx  =(observedRoadX[0]  +  observedRoadX[observedRoadPoiiits  -l])/2.0; 
TargCy  =(observedRoadY[0]  +  observedRoadY[observedRoadPoints  -l])/2.0; 


ddx  =  adx*(observedRoadX[0]  -  TargCx)  +  ady*(observedRoadY[0]  -TargCy); 
ddy  =  (My  -  my  200.0); 


ObserverMinorAxisLength  =  3500.0; 

ObsCx  =  TargCx-l-  0.0*adx  -I-  (1.0*MinorAxisLength)*ady; 
ObsCy  =  TargCy-l-  0.0*ady  -  (1.0*MinorAxisLength)*adx; 


/*  Ic.  make  target  box  oriented  on  (adx, ady)  (average  road  veetor)*/ 
make_box(TargCx, TargCy, MajorAxisLength, MinorAxisLength, adx, ady, 
&TxxO,&TyyO,&Txxl,&Tyyl,&Txx2,&Tyy2,&Txx3,&Tyy3); 

/*  Id.  try  an  obsever  box*/ 

make_box(ObsCx,ObsCy,MajorAxisLength,1.0*MinorAxisLength,adx,ady, 
&OxxO,&OyyO,&Oxxl,&Oyyl,&Oxx2,&Oyy2,&Oxx3,&Oyy3); 
if  (Iook_for_rivers(0xx0,0yy0,0xxl,0yyl,0xx2,0yy2,0xx3,0yy3)  ==  NO) 
{ 


/*  aeeeptable  is  20%  fully  exposed  20%  fully  hidden  */ 

Grade  =  evaluate_los_surfaee(etdb, 

TxxO,TyyO,Txxl,Tyyl,Txx2,Tyy2,Txx3,Tyy3, 

OxxO,OyyO,Oxxl,Oyyl,Oxx2,Oyy2,Oxx3,Oyy3, 

adx,ady); 

if  (  Grade  —  UNACCEPTABLE) 

{ 

/*  le.  if  one  box  doesn't  work  try  the  other*/ 

ObsCx  =  TargCx  -I-  0.0*adx  -  (1.0*MinorAxisLength)*ady; 

ObsCy  =  TargCy  -l-  0.0* ady  -l-  (1.0* MinorAxisLength)* adx; 
make_box(ObsCx,ObsCy,MajorAxisLength,  1 .0*MinorAxisLength, 
-L0*adx,-1.0*ady,&0xx0,  &OyyO,  &Oxxl,  &Oyyl,  &Oxx2, 
&Oyy2,&Oxx3  ,&Oyy3 ) ; 

if  (Iook_for_rivers(0xx0,0yy0,0xxl,0yyl,0xx2,0yy2,0xx3,0yy3)  ==  NO) 

{ 

Grade  =  evaluate_los_surfaee(etdb, 
TxxO,TyyO,Txxl,Tyyl,Txx2,Tyy2,Txx3,Tyy3, 

OxxO,OyyO,Oxx  1  ,Oyy  1  ,Oxx2,Oyy2,Oxx3  ,Oyy3 , 
adx,ady); 


} 
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*StartX  =  sx;  *StartY  =  sy; 

*StopX  =  ex;  *StopY  =  ey; 
if  (  Grade  —  ACCEPTABLE) 

{ 

initialDx  =  observedRoadX[0]  -  observedRoadX[l]; 

initialDy  =  observedRoadY[0]  -  observedRoadY[l]; 

len  =  sqrt(iiiitialDx*iiiitialDx  +  iiiitialDy*iiiitialDy)  +  0.0000001; 

initialDx  =  initialDx/len; 

initialDy  =  initialDy/len; 

exp3_march_along_road(db,sx,sy,75.0,entranceRoadPoints, 
initialDx, initialDy, 
entranceRoadX,entranceRoadY); 
k  =  0; 

make_line(db,entranceRoadPoints,entraneeRoadX,entranceRoadY,OCYellow); 
for  (i  =  0;  i  <  entraneeRoadPoints;  i++) 

{ 

my_roadX[k]  =  entranceRoadX[entranceRoadPoints  -1  -i]; 
my_roadY[k]  =  entranceRoadY[entranceRoadPoints  -1  -i]; 
k  =  k+  1; 

} 

make_line(db,observedRoadPoints,observedRoadX,observedRoadY,OCGreen); 
for  (i  =  0;  i  <  observedRoadPoints;  i++) 

{ 

my_roadX[k]  =  observedRoadX[i]; 
my_roadY[k]  =  observedRoadY[i]; 
k  =  k+  1; 

} 

initialDx  =  observedRoadX[observedRoadPoints  -1]  - 
observedRoadX[observedRoadPoints  -2] ; 
initialDy  =  observedRoadY[observedRoadPoints  -1]  - 
observedRoadY[observedRoadPoints  -2]; 
len  =  sqrt(initialDx*initialDx  +  initialDy*initialDy)  +  0.0000001; 
initialDx  =  initialDx/len; 
initialDy  =  initialDy/len; 

exp3_march_along_road(db,observedRoadX[observedRoadPoints  -1], 
observedRoadY[observedRoadPoints  - 1  ], 

50.0,exitRoadPoints, 

initialDx,initialDy, 

exitRoadX,exitRoadY); 

make_line(db,exitRoadPoints,exitRoadX,exitRoadY,OCBlack); 
for  (i  =  0;  i  <  observedRoadPoints;  i++) 

{ 

my_roadX[k]  =  exitRoadX[i]; 
my_roadY[k]  =  exitRoadY[i]; 
k  =  k+  1; 

} 

max_points  =  entraneeRoadPoints  +  observedRoadPoints  +  exitRoadPoints; 
*StartX  =  my_roadX[0];  *StartY  =  my_roadY[0]; 

*StopX  =  my_roadX[max_points  -  1];  *StopY  =  my_roadX[max_points  -  1]; 
BadGuyRouteEntry  = 

make_line(db,max_points,my_roadX,my_roadY,OCBlue); 


} 

MinX  =  TxxO;  MinY  =  TyyO;  MaxX  =  TxxO;  MaxY  =  TyyO; 
if  (MaxX  <  Txxl)  MaxX  =  Txxl;  if  (MaxY  <  Tyyl)  MaxY  =  Tyyl; 
if  (MaxX  <  Txx2)  MaxX  =  Txx2;  if  (MaxY  <  Tyy2)  MaxY  =  Tyy2; 
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if  (MaxX  <  Txx3)  MaxX  =  Txx3;  if  (MaxY  <  Tyy3)  MaxY  =  Tyy3; 

if  (MaxX  <  OxxO)  MaxX  =  OxxO;  if  (MaxY  <  OyyO)  MaxY  =  Oyyl; 
if  (MaxX  <  Oxxl)  MaxX  =  Oxxl;  if  (MaxY  <  Oyyl)  MaxY  =  Oyyl; 
if  (MaxX  <  Oxx2)  MaxX  =  Oxx2;  if  (MaxY  <  Oyy2)  MaxY  =  Oyy2; 
if  (MaxX  <  Oxx3)  MaxX  =  Oxx3;  if  (MaxY  <  Oyy3)  MaxY  =  Oyy3; 

if  (MinX  >  Txxl)  MinX  =  Txxl;  if  (MinY  >  Tyyl)  MinY  =  Tyyl; 
if  (MinX  >  Txx2)  MinX  =  Txx2;  if  (MinY  >  Tyy2)  MinY  =  Tyy2; 
if  (MinX  >  Txx3)  MinX  =  Txx3;  if  (MinY  >  Tyy3)  MinY  =  Tyy3; 

if  (MinX  >  OxxO)  MinX  =  OxxO;  if  (MinY  >  OyyO)  MinY  =  OyyO; 
if  (MinX  >  Oxxl)  MinX  =  Oxxl;  if  (MinY  >  Oyyl)  MinY  =  Oyyl; 
if  (MinX  >  Oxx2)  MinX  =  Oxx2;  if  (MinY  >  Oyy2)  MinY  =  Oyy2; 
if  (MinX  >  Oxx3)  MinX  =  Oxx3;  if  (MinY  >  Oyy3)  MinY  =  Oyy3; 

*txO  =  TxxO;  *tyO  =  TyyO;  *txl  =  Txxl;  *tyl  =  Tyyl; 

*tx2  =  Txx2;  *ty2  =  Tyy2;  *tx3  =  Txx3;  *ty3  =  Tyy3; 

*ObsxO  =  OxxO;  *ObsyO  =  OyyO;  *Obsxl  =  Oxxl;  *Obsyl  =  Oyyl; 
*Obsx2  =  Oxx2;  *Obsy2  =  Oyy2;  *Obsx3  =  Oxx3;  *Obsy3  =  Oyy3; 

*gMinX  =  MinX;  *gMinY  =  MinY ;  *gMaxX  =  MaxX;  *gMaxY  =  MaxY ; 

attemptstofmdroad  =  attempts_to_find_road+  1 ; 


return  Grade; 


#define  PI  4.0*atan(1.0) 

void  exp3_march_along_road(PO_DATABASE  *db,float64  sx,float64  sy,float64  step, 
int32  max_points, 
float64  initialDx,float64  initialDy, 
float64  *CurrentRoadX,float64  *CurrentRoadY) 

{ 

int32  current_point,my_point; 
int32  subsec l,subsec2,new_road; 

int32  found_it,trys,seg0,segl,seg2,current_road,end_road_segment; 
int32  ii,k_step; 
float64  px,py,ax,ay; 

float64  my_dx,my_dy,my_slope,my_dist,my_dist2; 
float64  road[2]; 

float64  angle, ex, ey,SmallerStep; 
float64  step_end,ddx,ddy,temp_dist; 

CurrentRoadX[0]  =  sx; 

CurrentRoadY[0]  =  sy; 
angle  =  (float)  degrees/1 80.0*PI; 
ii=  1; 

ax  =  0.0;  ay  =  0.0; 
while  (ii<  max_points) 

{ 

if(ii=l) 

{ 

/*  vector  form  start  to  endpoint  */ 
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my_dx  =  initialDx; 
my_dy  =  initialDy; 

px  =  sx  +  mydx; 
py  =  sy  +  my_dy; 

/*  pick  the  closest  road  point  to  that  one  */ 

found  it  =  ctdb_nearest_road(ctdb,px,py,100.0,&segl,  NULL); 

currentroad  =  segl; 

rt _find_point_on_road(ctdb,segl,px,py,&subsec2,  road); 

CurrentRoadX[ii]  =  road[0]; 

CurrentRoadY[ii]  =  road[l]; 
ii  =  ii+  1; 

} 

else  if  ( ii  >  1) 

{ 

/*  vector  along  the  road  between  last  two  points  */ 
my  dx  =  (CurrentRoadX[ii-l]  -  CurrentRoadX[ii-2]); 
my  dy  =  (CurrentRoadY[ii-l]  -CurrentRoadY[ii-2]); 
my  dist  =  sqrt(  my_dx*my_dx  +  my_dy*my_dy); 
if  (my  dist  <  0.00001) 

{ 

mydx  =  initialDx; 
mydy  =  initialDy; 

} 

ddx  =  my_dx/(my_dist  +  0.0000  l)*step; 
ddy  =  my_dy/(my_dist  +  0.0000  l)*step; 

px  =  CurrentRoadX[ii-l]  +  ddx; 
py  =  CurrentRoadY[ii-l]  +  ddy; 

/*  pick  the  closest  road  point  to  that  one  */ 

found  it  =  ctdb_nearest_road(ctdb,px,py,step,&segl,  NULL); 

if  (current  road  !=  segl) 

{ 

/*  save  this  point  */ 

rt_find_point_on_road(ctdb,segl,px,py,&subsec2,  road); 
ax  =  road[0]; 
ay  =  road[l]; 
newroad  =  segl; 

printf("EXP3  need  to  cross  an  intersection  at  the  %dth  point  \n",ii); 
kstep  =  99; 
seg2  =  segl; 

while((seg2  !=  current  road)  &&  (k  step  >  0)) 

{ 

SmallerStep  =  step/100. 0*(float)  k  step; 
ddx  =  my_dx/(my_dist  +  0.00001)*SmallerStep; 
ddy  =  my_dy/(my_dist  +  0.00001)*SmallerStep; 
px  =  CurrentRoadX[ii-l]  +  ddx; 
py  =  CurrentRoadY[ii-l]  +  ddy; 

found  it  =  ctdb_nearest_road(ctdb,px,py,20.0,&seg2,  NULL); 
k  step  =  k  step  -  1; 

} 

/*  add  the  intersectionpoint  to  the  road  */ 
rt_find_point_on_road(ctdb,segl,px,py,&subsec2,  road); 
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CurrentRoadX[ii]  =  road[0]; 
CurrentRoadY[ii]  =  road[l]; 
ii  =  ii+  1; 

/*  cross  the  intersection  */ 
CurrentRoadX[ii]  =  ax; 
CurrentRoadY[ii]  =  ay; 
ii  =  ii+  1; 

currentroad  =  newroad; 


else 

{ 

rt _find_point_on_road(ctdb,segl,px,py,&subsec2,  road); 
CurrentRoadX[ii]  =  road[0]; 

CurrentRoadY[ii]  =  road[l]; 
ii  =  ii+  1; 

currentroad  =  segl; 

} 


/* 

I  want  my  overly  on  the  main  screen.Routines  copied  from  elsewhere  in  the  OneSAF  code 

*/ 

static  void  find_an_overlay( 

PO  DB  ENTRY  *entry, 
struct  overlay  search  *  search) 

{ 

/*  Make  sure  the  overlay  is  okay  to  display.  */ 
if  (!search->found  && 

(PO_OBJECT_CLASS(entry)  —  objectClassOverlay)  && 

!  PO  O VERLAY_DATA(entry)  .working  && 

!  POO  VERLAY_DATA(entry) .  scratch) 

{ 

search->found  =  1 ; 

*search->id  =  PO_OBJECT_ID(entry); 
search->entry  =  entry; 


} 

static  void  get_an_overlay( 

PO_DATABASE  *db, 

ObjectID*id) 

{ 

PO  DB  ENTRY  *entry; 
struct  overlay  search  search; 

PO_BUFFER(OverlayClass,  variant,  ovl  buf); 

/*  See  if  we  can  find  an  overlay,  *any*  displayable  overlay  */ 
search. found  =  0; 
search,  id  =  id; 

po_query_for_current_class(db,  obj  ectClassOverlay, 
(PO_QUERY_HANDLER)fmd_an_overlay, 
(PO_USER_DATA_TYPE)&search); 

if  (search. found) 


47 


return; 


bzero(ovl_buf,  sizeof(ovl_buf)); 
variant->color  =  OCBlack; 
variaiit->forceID  =  forcelDIrrelevant; 
strcpy((char  *)variaiit->name,  "<Unnamed>"); 

if  (!(eiitry  =  po_create_object(db,  NULL,  objectClassOverlay,  FALSE, 
variant,  PRO_PO_OVERLAY_CLASS_SIZE, 

NULL))) 

{ 

printf("EXP3  Error  creating  default  overlay  in  PO  database:  %s\n", 
po_errlist[po_ermo]); 

} 

*id  =  PO_OBJECT_ID(entry); 


void  draw_box(  PO  DATABASE  *db,int32  color,int32  number, 
float64  x0,float64  yO, 
float64  xl,float64  yl, 
float64  x2,float64  y2, 
float64  x3,float64  y3) 

{ 

int32  ic; 

PO_BUFFER(LineClass,  my  line,  but); 
PO_BUFFER(TextClass,  my  text,  buf2); 
PO_DB_ENTRY*my_line_entry,*my_text_entry; 
char  exerciseNumber[20]; 

get_an_overlay(db,  &my_line->overlayID); 
my_line->width  =  2; 
my_line->closed  =  FALSE; 
my_line->splined  =  FALSE; 
my_line->route  =  FALSE; 
my_line->style  =  LSplain; 
my_line->dashed  =  True; 
my_line->beginArrowFlead  =  noArrowFlead; 
my_line->endArrowFlead  =  noArrowFlead; 
my_line->thickness  =  2; 
my_line->color  =  color; 
my_line->pointCount  =  5; 

my_line->methodology  =  SAFMethodFundamental; 
my_line->shouldBeSimulated  =  TRUE; 


my_line->points[0].pointNumber  =  0; 
my_line->points[0].variant.location.x  =  xO; 
my_line->points[0].variant.location.y  =  yO; 
my_line->points[0].pointType  =  PTLocation; 
my_line->points[0].variant.location.cell  =  GCSILLEGALCELL; 

my_line->points[l].pointNumber  =  1; 
my_line->points[l].variant.location.x  =  xl; 
my_line->points[l].variant.location.y  =  yl; 
my_line->points[l].pointType  =  PTLocation; 
my_line->points[l]. variant. location.cell  =  GCSILLEGALCELL; 
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my_line->points[2].pointNumber  =  2; 
my_line->points[2].variant.locatioii.x  =  x2; 
my_line->poiiits[2].variant.location.y  =  y2; 
my_line->poiiits[2].poiiitType  =  PTLocation; 
my_line->poiiits[2].variant.location.cell  =  GCSILLEGALCELL; 

my_line->poiiits[3].pointNumber  =  3; 
my_line->poiiits[3].variant.location.x  =  x3; 
my_line->poiiits[3].variant.location.y  =  y3; 
my_line->poiiits[3].poiiitType  =  PTLocation; 
my_line->points[3].variant.location.cell  =  GCSILLEGALCELL; 

my_line->points[4].pointNumber  =  4; 
my_line->points[4].variant.location.x  =  xO; 
my_line->points[4].variant.location.y  =  yO; 
my_line->points[4].pointType  =  PTLocation; 
my_line->points[4].variant.location.cell  =  GCSILLEGALCELL; 

my  line  entry  =  po_create_object(db,  NULL,  objectCIassLine, 
FALSE,  my  line, 

PRO_PO_LINE_CLASS_SIZE(my_line->pointCount),NULL); 
sprintf(my_text->text,"Exp-%d  ",number); 
get_an_overlay(db,  &my_text->overlayID) ; 
my_text->coIor  =  OCBlack; 
my_text->location.x  =  (xO  +  xl  +  x2  +  x3)/4.0; 
my_text->location.y  =  (yO  +  yl  +  y2  +  y3y4.0; 
my_text->length  =10; 

my  text  entry  =  po_create_object(db,  NULL,  objectCIassText, 
FALSE,  my  text, 

PRO_PO_TEXT_CLASS_SIZE(my_text->length),NULL); 


static  PO  DB  ENTRY  *make_point(  PO  DATABASE  *db, 

ObjectID  *overlay, 
fIoat64  x,fIoat64  y, 
fIoat64  direction) 

{ 

PO  DB  ENTRY  *my_point_entry; 

PO_BUFFER(PointCIass,  my_point,  buf); 
my_point->overlayID  =  *overlay; 
my_point->style  =  PSTRP; 
my_point->coIor  =  OC  Yellow; 
my_point->dashed  =  FALSE; 
my_point->location.x  =  x; 
my_point->location.y  =  y; 
my_point->direction  =  direction; 
sprintf(my_point->text,"  "); 

my_point_entry  =  po_create_object(db,  NULL,  objectClassPoint, 
FALSE,  my_point,  sizeof(my_point),  NULL); 
return  my_point_entry; 

} 


static  PO  DB  ENTRY  *make_line(  PO  DATABASE  *db,int  numPoints, 
fIoat64  *x,fIoat64  *y, 
int32  color) 

{ 
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int32  i; 

PO_BUFFER(LineClass,  my  line,  buf); 

PODBENTR  Y  *  mylineentry ; 

get_an_overlay(db,  &my_line->overlayID); 

my_line->width  =  3; 

my_line->closed  =  FALSE; 

my_line->splined  =  FALSE; 

my_line->route  =  FALSE; 

my_line->style  =  LSplain; 

my_line->dashed  =  TRUE; 

my_line->beginArrowF[ead  =  noArrowFIead; 

my_line->endArrowF[ead  =  noArrowFIead; 

my_line->thickness  =  5; 

if  (color  ==  OCBlue)  my_line->thickness  =  1 ; 

my_line->color  =  color; 

my_line->pointCouiit  =  numPoints; 

my_line->metliodology  =  SAFMethodFundamental; 

my_line->sliouldBeSimulated  =  TRUE; 

for  (i  =  0;  i  <  numPoints;  i++) 

{ 

my_line->points[i].pointNumber  =  0; 
my_line->points[i]  .variant,  location.x  =  x[i]; 
my_line->points[i].variant.location.y  =  y[i]; 
my_line->points[i].pointType  =  PTLocation; 
my_line->points[i].variant.location.cell  =  GCSILLEGALCELL; 

} 

my  line  entry  =  po_create_object(db,  NULL,  objectClassLine, 

FALSE,  my  line, 

PRO_PO_LINE_CLASS_SIZE(my_line->pointCount),NULL); 


int32  exp3_time_to_quit(PO_DATABASE  *db) 

{ 

float64  pos[XYZC],XX,YY,xxx,yyy,dist; 
int32  lengthClieck,widthClieck; 
int32  i,ans; 
ans  =  NO; 

for  (i  =  0;  (i  <  NumberBadVehicles  &&  (ans  ==  NO));  i++) 

{ 

ent_get_position_gcs(BadVehicleID[i]  ,pos); 

/*  translate  */ 

XXX  =  pos[X]  -  txO; 
yyy  =  pos[Y]  -  tyO; 

/*  rotate  */ 

XX  =  tdx*xxx  +  tdy*yyy; 

YY  =  tdy*xxx  -  tdx*yyy; 
if((XX<0)  II  (YY<0)) 

{ 

return  NO; 

} 

else  if  (( XX  <  twidth)  &&  (YY  <  tlength)) 

{ 

printf("EXP3  inside  box  \n"); 

} 

else 
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{ 


priiitf("EXP3  outside  the  box  \n"); 
ans  =  YES; 
return  ans; 


} 

} 

return  ans; 


#defme  SCALE  25 

void  dump_terrain_surfaee(  ehar  *fde_name, 
float64  MinX,float64  MiuY, 
float64  MaxX,float64  MaxY) 

{ 

int32  ix,iy,numX,numY; 
float  XX,YY,ZZ; 

FILE  *myfile; 
ehar  elevations[20]; 

sprintf(elevations,"%sElev.%d",file_name,exp3_eount); 

myfile  =  fopen(elevations,"w"); 

numX  =  (MaxX  -  MinX)/SCALE; 

uumY  =  (MaxY  -  MinYySCALE; 

for  (iy  =  0;  iy  <  numY ;  iy++) 

{ 

YY  =  MiuY  +  (float)  iy*SCALE; 
for  (ix  =  0;  ix  <  numX;  ix++) 

{ 

XX  =  MinX  +  (float)  ix*SCALE; 

ZZ  =  etdb_lookup_elevation(etdb,  XX, YY); 
fprintf(myfde,"%.31f%.31f%.31f\n",XX,YY,ZZ); 

} 

} 

felose(myfile); 

} 

#ifdefUSE_MOTIF 

#else 

#endif/*USE  MOTIF*/ 
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1  US  MILITARY  ACADEMY 
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WEST  POINT  NY  10996-1786 

1  DIRECTOR 

US  ARMY  RESEARCH  LAB 
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ADELPHI  MD  20783-1197 

3  DIRECTOR 

US  ARMY  RESEARCH  LAB 
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3  DIRECTOR 
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1  DEFENSE  TECHNICAL 
(PDF  INFORMATION  CTR 
ONLY)  DTICOCA 
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FT  BELVOIR  VA  22060-6218 


52 


NO.  OF 

COPIES  ORGANIZATION 


NO.  OF 

COPIES  ORGANIZATION 


3  DIR  USARL 

AMSRD  ARE  SE  RM 
EBUKE 
G  GOLDMAN 
AMSRD  ARE  SE  DC 
A  GOLDBERG 
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1  PM  MIA2 

SFAE  GCS  AB 
R  LOVETT 

WARREN  MI  48397-5000 

I  PMMIAI 

SFAE  GCS  AB 
L  C  MILLER  JR 
WARREN  MI  48397-5000 

I  PM  BFVS 

SFAE  GCS  BV 
C  L  MCCOY 

WARREN  MI  48397-5000 

1  PM  BFVS 

ATZB  BV 
C  BETEK 

FTBENNINGGA  31905 

1  PM  M2/M3  BFVS 

SFAE  GCS  BV 
J  MCGUINESS 
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R  D  OGG  JR 
J  GERLACH 
TDEAN 

WARREN  MI  48397-5000 
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10221  BURBECKRD 
FT  BELVOIR  VA  22060-5806 

I  NIGHT  VISION  &  ELECTRONIC 
SENSORS  DIRECTORATE 
A  F  MILTON 
1 022 1  BURBECKRD 
STE  430 

FT  BELVOIR  VA  22060-5806 

I  CDR 

US  ARMY  TRADOC 
ATINZA 
R  REUSS 
BLDG  133 

FT  MONROE  VA  23651 

I  CDR 

US  ARMY  TRADOC 
ATINI 
C  GREEN 
BLDG  133 

FT  MONROE  VA  23651 

I  OFC  OF  THE  SECY  OF  DEFENSE 
CTR  FOR  COUNTERMEASURES 
M  A  SCHUCK 
WSMRNM  88002-5519 

I  US  SOCOM 
SOIO  JA  F 
J  GOODE 

7701  TAMPA  POINT  BLVD 
BLDG  501 

MCDILL  AFB  FL  33621-5323 
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1  CDR 

US  ARMY  ARMOR  CTR  &  FT  KNOX 
TSM/ABRAMS 
D  SZYDLOSKI 
FT  KNOX  KY  40 12 1 

1  CDR 

US  AMBL 
J  JUGHES 

FT  KNOX  KY  40 12 1 

1  DIR  OF  COMBAT  DEVELOPMENT 
ATZK  FD  W  MEINSHAUSEN 
BLDG  1002  RM  326 
1  ST  CAVALRY  DIV  RD 
FT  KNOX  KY  40I2I-9I42 

1  CMDG  OFFICER 

MARINE  CORPS  INTEL  ACTIVITY 
W  BARTH 

3300  RUSSELL  RD  STL  250 
QUANTICOVA  22I34-50II 

1  UNIV  OF  SOUTH  FL 

COMPUTER  SCIENCE  AND  ENGRG 
R  MURPHY 

4202  E  FOWLER  AVE  ENB342 
TAMPA  FL  33620-5399 

1  APPLIED  PHYSICS  LAB 
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1 1 100  JOHNS  HOPKINS  RD 
LAUREL  MD  20723-6099 

1  SAIC 

K  A  JAMISON 
PO  BOX  4216 

FT  WALTON  BEACH  FL  32549 

23  CDR 

USA  TACOM  ARDEC 
AMSTA  AR  TD 
M  DEVINE 
M  FISETTE 
AMSTA  AR  FSA  S 
R  KOPMANN 
H  KERWIEN 
K  JONES 
A  FRANCHINO 
AMSTA  AR  FSA  P 
D  PASCUA 
AMSTA  AR  FSA  M 
J  FENECK 


AMSTA  AR  FSP 
DLADD 
M  CILLI 

AMSTA  AR  CCH  A 
M  PALTHINGAL 
A  VELLA 
E  LOGSDON 
RCARR 
M  MICOLICH 
M YOUNG 
AMSTA  AR  QAC 
R  SCHUBERT 
AMSTA  AR  FSP  G 
A  PEZZANO 
R  SHORR 
AMSTA  AR  FSA  T 
A  LAGASCA 
AMSTA  AR  FSP  I 
R  COLLETT 
AMSTA  AR  WE  C 
RFONG 
STANG 

PICATINNY  ARSENAL  NJ  07806-5000 

5  PEO  PM  MORTAR  SYSTEMS 
SFAE  AMO  CAS  IFM 
L  BICKLEY 
M  SERBAN 
K  SLIVOVSKY 
SFAE  GCS  TMA 
R  KOWALSKI 
SFAE  GCS  TMA  PA 
E  KOPACZ 

PICATINNY  ARSENAL  NJ  07860-5000 

8  PEO  GCS 
SFAE  GCS 
C  GAGNON 
SFAE  GCS  W 
A  PUZZUOLI 
SFAE  GCS  BV 
J  PHILLIPS 
SFAE  GCS  LAV 
T  LYTLE 
SFAE  GCS  AB  SW 
PATTISON 
SFAE  GCS  AB  LF 
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SFAE  GCS  LAV  M 
TKLER 

SFAE  GCS  LAV  FCS 
ASOKLIS 

WARREN  MI  48397-5000 
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J  REVELLO 
B  BEAUDOIN 
B  RATHGEB 
M  CHAIT 
S  BARSHAW 
AMSTA  CM  XSF 
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2  THE  UNIV  OF  TEXAS  AT  AUSTIN 
INSTIT  FOR  ADVANCED  TECH 
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I  MCNAB 
S  BLESS 

AUSTIN  TX  78720-2797 

1  INNOVATIVE  SURVIVABILITY  TECH 
J  STEEN 
PO  BOX  1989 
GOLETACA  93 1 16 

1  SUNY  BUFFALO 

ELECTRICAL  ENGRG  DEPT 
J  SARJEANT 
PO  BOX  601900 
BUFFALO  NY  14260-1900 


I  GENERAL  DYNAMICS 
LAND  SYSTEMS 
D  GERSDORFF 
PO  BOX  2074 
WARREN  MI  49090-2074 

I  CDR  US  ARMY  CECOM 
W  DEVILBISS 
BLDG  600 
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J  DOUGLAS 

QUANTICOVA  22134-5010 

2  COMMANDER 
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D  HANCOCK 
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1  DIR  USARL 
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AMSRL  SL  EM 
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4  UNITED  DEFENSE  ADV  DEV  CTR 
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328  BROKAW  RD 
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2  NORTHROP  GRUMMAN  CORP 
A  SHREKENHAMER 

D  EWART 

1100  W  HOLLY  VALE  ST 
AZUSA  CA  91702 

I  CDR  US  ARMY  AMCOM 
AMSAM  RD  ST  WF 
D  LOVELACE 

REDSTONE  ARSENAL  AL  35898-5247 

I  OFC  OF  THE  SECY  OF  DEFNS 
ODDRE  (R&T)  G  SINGLEY 
THE  PENTAGON 
WASHINGTON  DC  20301-3080 
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1  OSD 

OUSD  (A&T)  ODDR&E 
J  R  TREW 
THE  PENTAGON 
WASHINGTON  DC  20310-0560 
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2  DIR 
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EXPER  STATION 
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3909  HALLS  FERRY  RD 
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2  NATL  INST  STAN  AND  TECH 
K  MURPHY 

100  BUREAU  DR 
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3  CDR 

US  ARMY  MMBL 
J  BURNS 
BLDG  2021 

BLACKHORSE  REGIMENT  DR 
FT  KNOX  KY  40121 

2  DIR 

NASA  JET  PROPULSION  LAB 
L  MATHIES 
K  OWENS 

4800  OAK  GROVE  DR 
PASADENA  C A  91109 

1  DIR 

AMCOM  MRDEC 
AMSMI  RD 
W  MCCORKLE 

REDSTONE  ARSENAL  AL  35898-5240 

1  CDR  CECOM 

SP  &  TERRESTRIAL  COM  DIV 
AMSEL  RD  ST  MC 
M  SOICHER 

FT  MONMOUTH  NJ  07703-5203 


1  CDR 

US  ARMY  INFO  SYS  ENGRG  CMD 
ASQB  OTD 
F  JENIA 

FTHUACHUCAAZ  85613-5300 
1  CDR 

US  ARMY  NATICK  RDEC 
ACTING  TECHNICAL  DIR 
SSCNC 

T  BRANDLER 
NATICK  MA  01760-5002 

1  CDR 

ARMY  RESEARCH  OFC 
4300  S  MIAMI  BLVD 
RESEARCH  TRIANGLE  PARK  NC 
27709 

1  CDR 

US  ARMY  STRICOM 
J  STAHL 

12350  RESEARCH  PKWY 
ORLANDO  FL  32826-3726 

1  CDR 

US  ARMY  TRADOC 
BATTLE  LAB  INTEGRATION  7 
TECH  DIR 
ATCD  B  J 
A  KLEVECZ 

FT  MONROE  VA  23651-5850 

ABERDEEN  PROVING  GROUND 

1  PM  ODS 
SFAE  CBD 
B  WELCH 
BLDG  4475 
APGMD  21010-5424 

1  CDR  US  ARMY  ABERDEEN 
TEST  CENTER 
VPG  TEAM 
J  CORDE  LANE  PHD 
VIRTUAL  PROVING  GROUND  TEAM 
ABERDEEN  TEST  CENTER 
400  COLLERAN  RD  BED  321 

1  CDR 

US  ARMY  EDGEWOOD  RDEC 
SCBRD  TD  J  VERVIER 
APGMD  21010-5000 
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AMSTE  CD 
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AMSTE  CD  M 
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3  DIR 
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AMSRD  ARE  WM  TE 
G  THOMSON 
T  KOTTKE 
M  MCNEIR 
P  BERNING 
J  POWELL 
C  HUMMER 
AMSRD  ARE  WM  TC 
R  COATES 
AMSRD  ARE  SL  BG 
M  ENDERLEIN 
AMSRD  ARE  SL  EM 
C  GARRETT 
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M  FIELDS 
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